HONEYWELL 


LEVEL 68 
MULTICS BASIC 
- MANUAL 


7 3 


SOFTWARE 


LEVEL 68 
MULTICS BASIC MANUAL 


SUBJECT 


General Description, Capabilities, Rules and Definitions, User Interfaces, 
Statements, and Input/Output of the BASIC Language on the Multics System 


SOFTWARE SUPPORTED | 
Multics Software Release 9.0 


ORDER NUMBER 
AM82-01 February 1981 


Honeywell 


PREFACE 


This reference manual completely describes the BASIC language 
on the Multics system. It does not describe the BASIC compiler. 
For information on the BASIC compiler, the reader is referred to 
the basic command description in the MULTICS PROGRAMMERS' MANUAL, 
COMMANDS AND ACTIVE FUNCTIONS. Also, this manual does not attempt 
to provide the reader with extensive knowledge of the Multics 
system. The reader is referred to the Multics Programmers' 
Manual Introduction for an introduction to Multics use and to the 
other volumes of the Multics Programmers' Manual (MPM) for a 
thorough discussion of the Multics system. The complete MPM 
consists of seven manuals although only four are referenced in 
this manual. They are as follows: 


Document Referred to in Text As 


Introduction MPM Introduction 
(Order No. AG9O) 


Reference Guide MPM Reference Guide 
(Order No. AGQT) 

Command and Active Functions MPM Commands 

(Order No. AG92) 

Subroutines | MPM Subroutines 


(Order No. AG93) 


The MPM Reference Guide contains general information about 
the Multics command and programming environments. 


The MPM Commands gives the syntax and a complete description 
of selected standard Multics system commands and active 
functions. 


The information and specifications in this document are 
subject to change without notice. This document contains 
information about Honeywell products or services that may 
not be available outside the United States. Consult your 
Honeywell Marketing Representative. 


(c) Honeywell Information Systems Inc., 1981 | File No.: 1L13 
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The MPM Subroutines contain descriptions of the standard 
Multiecs subroutines, including the declare statement, the calling 
sequence, and usage of each and a description of the I/0 modules. 
In addition to the MPM, the reader is referred to the Multics 
FAST Subsystem Reference Guide (Order No. AU25-01) describing the 


time-sharing facility supporting BASIC and FORTRAN program 
development. 


This is the first revision of the BASIC manual. Features new 
to the manual are: 


extended precision 


let keyword is now optional 
multiple statements per line 
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SECTION 1 


INTRODUCTION 


FORMAT OF STATEMENTS 


A BASIC program is a sequence of numbered statements most of 
which are identified by a keyword. The source program text consists 
of a Multics segment containing ASCII characters divided into 
lines by "newline" characters (the ASCII character whose octal 
code is 12). Each line of the source program contains one or 
more BASIC statements. Blank lines are allowed. Multiple statements 
can appear on one line but must be separated by a backslash (\' 
character. A statement that spans several lines is not allowed. 


The following statements constitute a complete BASIC program, 
it computes and prints the sum and difference of two numbers 
specified by the user when the program is executed. 

106 input x,y 

200 print x+y, x~-y 
300 end 


100 input x,y\print x+y, x-y 
200 end 


Line Numbers 


The line or statement number is an unsigned decimal integer 
greater than or equal to 0 and less than or equal to 99999 that 
iS used tc Label tne statement. The line number must begin in 
the first pesition of the source line; the line number field is 
terminated by the first nondigit in the line. 


Each line in the source program must have a line number that 
1S greater than the number of the preceding line. Other commands 
(such as fast) that make use of the BASIC compiler can use line 
numbers to control editing of the source program; if so, the 
maximum value of a line number may be restricted to a lower value 
tnan that imposed by BASIC. 
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Keywords 


The statement keyword is an English word that immediately 
follows the line number or backslash and serves to identify the 
type of statement. The interpretation of the characters that 
follow the keyword depends on the type of statement. Some examples 
of BASIC keywords are: 


let 
print 
if 
rem 


Character Processing 


The BASIC compiler ignores blanks and tab characters and converts 
uppercase characters to lowercase ones except where they occur 
within quoted strings. Thus the following statements are all 
equivalent: 


100 GOTO485 
100 goto 485 
100 go TO 4 8 5 


The length of the line after blanks and tab characters have 
been removed is limited to 256 characters. 


ORDER OF EXECUTION 


The statement in a program with the lowest line number is the 
first statement to be executed. Unless one of the control statements 
is executed, statements are executed sequentially according to 
line number. Execution of the program ceases if an end statement 
or a stop statement is executed. 


REMARKS 


The BASIC compiler normally looks at all the characters in a 
statement. BASIC provides two means by which the user can indicate 
that a sequence of characters is to be ignored by the compiler: 
the remark statement and apostrophes. . 
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Remark Statement 


The remark statement consists of the keyword "rem" followed 
by an arbitrary sequence of characters tnat can contain any ASCII 
characters except newline or backslash characters. The compiler 
ignores the rem statement; it has no effect when encountered during 
execution. An example of a rem statement is: 


173 rem Test for Convergence 


A statement consisting of only a line number is treated as if 
it were a rem statement. 


Apostrophes 


When the BASIC compiler finds an apostrophe or an acute accent 
(the ASCII character whose octal code is 47) outside of a string 
constant, it ignores the apostrophe and all characters between it 
and either the newline character that terminates the line or the 
backslash character that terminates the statement, whichever comes 


first. This allows comments to be written on the same line as a 
BASIC statement. If the apostrophe immediately follows the line 
number, the line is treated as a rem statement. The following 


a 


Lines show how the apostrophe can be used. 


80C goto 200 ' repeat for next value 
§29 ' find total cost: 


BASIC PROGRAM STRUCTURE 

A BASIC source file may consist of a main program, one or 
more subroutines, or a main program followed by one or more 
Subroutines, each having its own independent set of variables. 
If the first executable statement of a program does not begin 
with the keyword sub, it is the main program whose body is terminated 
by the end statement. The name of a main program is the same as 
the primary name of the source program; for example, the main 
program corresponding to the source file named alpha.basic would 
be alpha. 


A main program can be directly invoked by the BASIC compiler 
as part of the compile-and-go mode of execution; it can be invoked 
by the Multics command processor if a Multics object segment exists 
for the program; or it can be called as a subroutine by a separately 
compiled BASIC, PL/I, FORTRAN, or ALM program. 
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A subroutine immediately foilows the optional main program. 
It has its own set of variables. The name of a subroutine and 
the arguments it takes are specified by a sub statement. The 
name of a subroutine is given as an ASCII character string of 32 
characters or less. The body of the subroutine is delimited by a 
sub statement at the start of the subroutine and a subend statement 


at the end. It is not possible to nest subroutine definitions. 


A subroutine is normally called by means of a call statement. 
As with main programs, a subroutine can be cailed from a BASIC, 
PL/I, FORTRAN, or ALM program. A subroutine that has no arguments 
can be called by the Multics command processor. 


In the rest of the manual, the word program is used to mean 
either main program or subroutine, whether or not they are compiled 
together. 


Allocation of Storage 


Storage is allocated for all the variables in a program when 
control enters the program and is freed when control leaves the 
program. The variables of a program are accessible only when the 
program is active; the values of all variables are lost when the 
program returns. 


If a program is called recursively (called while a previous 
call is still active), the storage allocated for the variables of 
the previous use of the program is "pushed down" at each entrance 
to the program and "popped up" at each return. The variables 
associated with a previous invocation are not accessible to a 
subsequent activation of a program. There is no means, other 
than the use of files, by which the value of a variable can be 
preserved between invocations of a program. 


A program can be written online uSing any one of the Multics 
editors such as qedx for hard-copy terminals or emacs for video 
terminals. For detailed information on the qedx editor, see the 
Qedx Text Editor User's Guide, Order No. CG4O0O, or for emacs, see 


OS AT <A ee 


the Emacs Text Editor User's Guide, Order No. CH27. The source 
program may consist of the source for one or more subroutines, a 
single main program, or a main program followed by one or more 


subroutines. 


Once the program is input and edited, it is compiled by the 
BASIC compiler which translates the program and then either executes 
a temporary object segment or produces a standard Multics object 
segment. The compiler is invoked by the basic command discussed 
in detail in the MPM Commands. 
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BASIC SEARCH MECHANISM 


When a BASIC call statement is executed, BASIC first searches 
che caller's object segment for a subroutine with the specified 
rame. If none is found, BASIC looks for the program in the storage 
aystem. In this case, the format of the name determines the 
search methods. 


The subroutine name used in a BASIC call statement can be a 
segment name, e.g., alpha; a segment name and entry name pair, 
e.g., alpha$beta; or either of these preceded by an arbitrary 
pathname, e.g., >udd>Person id>Project id>alpha. When a pathname 
is not present, BASIC uses the normal Multics search algorithm to 
locate the specified segment. If a pathname is given, BASIC attempts 
to initiate the specified segment using the specified segment 
name. If no other segment is known by this name, the name/number 
asscciation is established and the segment that was found is used 
for the call statement. If the specified segment is not found or 
if some other segment is already known by the specified name, the 
call statement is in error and execution of the BASIC program is 
terminated. 


SAMPLE PROGRAM 


The following BASIC program consists of one main program and 
one subroutine. The main program reads input from the terminal; 
sails the subroutine, which computes the integral of the defined 
Functions; and then prints the difference between the results 
returned by the subroutine. 


i@0 input l,u 

110 def fna(x) 1 + x®x 

120 def fnb(x) = 1 - x*x 

136 call “integrate":fna,l,u,z1 
THO call “integrate":fnb,l,u,z2 
150 print z1-z2 


160 end 
210 sub "integrate":fne,l,u,z 
220 


. (body of program omitted) 


279 subend 
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SECTION 2 


TYPES OF DATA 


Two types of data are supported by BASIC: numeric and string. 
BASIC allows constants and variables of both types. 


NUMERIC ARGUMENTS 


A numeric value:'is a floating-point number that is single 
precision by default. The mantissa of a numeric value can represent 
approximately eight decimal digits of precision; the exponent can 
be between -39 and +38. Integers whose magnitude is less than 
134,217,728 are represented exactly. 


If the program is compiled in extended precision mode (see 
Appendix D), all numeric values are double precision floating 
point numbers. In this case, the mantissa can represent 
approximately 19 decimal digits of precision. The exponent can 
be between -39 and 38. Integers whose magnitude is less than 
2 **6 3(9223372036854775807) are represented exactly. 


A numeric constant is written as a signed decimal number that 
can contain a decimal point followed by an exponent. The exponent 
field, which is optional, is written as the letter "e" (or the 
letter "E" since BASIC converts uppercase characters to lowercase 
characters) followed by an optionally signed integer constant. 
If the decimal point is omitted, it is assumed to be immediately 
to the right of the rightmost digit. If’ the sign of either the 
decimal number or the exponent is omitted, a plus is assumed. 
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Examples: 


a+5.12 e - 5 
~.333E-10 
5 e 5 


STRING VALUES 


A string value is a string of from 0 to 4095 ASCII characters, 
inclusive. 


A string constant is written as a set of 0 or more contiguous 
ASCII characters enclosed in quotation marks. A quotation mark 
can be included in the string by immediately preceding it by 
- another quotation mark. A string constant can contain any ASCII 
character except a newline character; a string constant must fit 
entirely in one BASIC statement. 


Examples: 


Trin 


(Result: ") 
"This is a character string constant" 


(Result: This is a character string constant) 
"She said, ""I love youl™"" 
(Result: She said, "I love you!") 


SCALAR VARIABLES 

A scalar variable is implicitly declared through its appearance 
in the source program. The type of a scalar variable is completely 
determined by the spelling of the variable name. 
Numeric Scalars 

The name of a scalar numeric variable is either a letter or a 


letter followed by a digit. Numeric variables are initialized to 
O at the start of the program in which they are defined. 
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Examples: 


| a 
| C3 | 


String Scalars 


The name of a scalar string variable is either a single letter 
followed by a dollar sign or a single letter followed by a digit 
followed by a dollar sign. String variables are initialized to 
the zero-length string at the start of the program in which the 
variable isdefined. The lengthof a string variable is automatically 
set to the length of the string being assigned to it. 


Examples: 


ARRAY VARIABLES 


An array is an ordered set of values, all of which have the 
same type. The elements of an array are stored in contiguous 
storage in row-major order (rigntmost subscript varies most rapidly). 
An array can have either one dimension, in which case it is called 
a vector, or two dimensions, in which case it is called a matrix. 
The first subscript of a matrix selects a row of the matrix; the 
second subscript selects a column. 


Array Declarations 
An array can be explictly declared in a dim statement or can 
be implicitly declared by its use in the source program. If the 


first use of the array name is in a dim statement, the number of 
dimensions and the number of elements are given in the dim statement. 
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If the first use of an array name is in an executable statement, 
the number of dimensions in the array is determined by the context 
in which the array name is found. The following contexts declare 
the array as a vector: 


use with one subscript 

use in a call statement where a vector is required 

use in a change statement 

use in an array input/output statement without 
redimensioning 


The following contexts declare the array as a matrix: 


@ use with two subscripts 
e use in a call statement where a matrix is required 


Use of an array in a mat-assign statement can cause the array 
to get declared either as a vector or as a matrix, depending on 
the other arrays used in the statement. 


The lower bound of an array dimension is always 0. The upper 
bound depends on the manner in which the array was declared. If 
an array was explicitly declared, the number of elements in each 
dimension is given in the dim statement. If an array is implicitly 
declared, BASIC uses an upper bound of 10 for each dimension; 
thus 11 elements are reserved for a vector and 121 elements are 
reserved for a matrix. 


Array Bounds 


An array really has two sets of bounds: the original bounds 
and the current bounds. 


The original bounds of an array are established by the dim 
statement in which the array is declared or by the implicit dimension 
rules previously specified. The original bounds of an array specify 
the total amount of storage allocated for the array and do not 
change during execution of the BASIC program. 


The current bounds of an array are initially the same as the 
original bounds. The current bounds indicate the total amount of 
storage currently being used for array elements; the current bounds 
(but not the number of dimensions) can be changed by the process 
known as redimensioning described in Section 6. The amount of 
storage specified by the current bounds must always be less than 
or equal to the amount of storage specified by the original bounds. 
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Array Element References 


A reference to an array element consists of the array name 
followed by a parenthesized list of subscripts. 


Syntax: 
b(s1) or b(s1,s2) 


where b is the array name and s1 and se are numeric expressions. 
The value of a subscript expression is truncated to an integer 
value before it is used to locate the specified array element. 
The truncated value of the subscript expression must be within 
the range of the corresponding array dimension. The number of 
subscripts in an array element reference must be the same as the 
number of array bounds. 


Xxamples: 


a(5) 
b(i+j,3*k-2) 
eval j)+4) 


The name of a numeric array is a single letter. All the 
elements of the array are initialized to 0 at the start of the 
program in which the array is defined. 


string Arrays 

The name of a string array is a single letter followed by a 
dollar sign. The elements of a string array can all have different 
lengths. All the elements of the array are initialized to the 


zero-length string at the start of the program in which the array 
is defined. 


Examples: 


| a$(5) | 


b$(i+j,3*k-2) 


| e$(a(j)/4) | 
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RELATIONSHIP OF NAMES 


The same name can be used for as many as four different variables 
in a BASIC program; the context in which the name is used identifies 
the scalar or array intended. Thus, in a single program, a user 
can have a scalar numeric variable b, a scalar string variable 
b$, a numeric array b, and a string array b$, all of which are 
distinct variables. 


The following expression illustrates all four uses of the 
name b: 


str$(b(val(b$))) & b$(b) 


REFERENCES 


Throughout this document, the word "reference" means areference 
to a scalar variable or a reference to a subscripted array element. 
Whenever a particular type of reference is required, the terms 
"numeric reference" and “string reference" are used. An “array 
reference" is a reference to an array used without subscripts. 


LISTS 


Throughout this document, the word “list™ means a sequence of 
one or more items separated by commas or some other specified 
separator. A list cannot contain two consecutive elements or two 
consecutive separators. The following are examples of lists of 
integers: 


an ee ae 
hm M 
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SECTION 3 


EXPRESSIONS 


BASIC expressions are constructed from operators and operands. 
An operand can consist of aconstant, a scalar variable or subscripted 
array element, a function reference, or the result of another 
operator. Operators that require two operands are called binary 
Operators, and epensuene that require one operand are called unary 
operators. 


BASIC defines two types of expressions: numeric and string. 
Numeric operands must not be used with the string operator; string 
operands must not be used with the numeric operator. There is no 
implicit conversion between numeric and string values; explicit 
conversion functions must be used to convert from one data type 
to the other. 


Tnhrougnout this document, the word "expression" means an 
arbitrarily complicated expression that can range from a single 
constant to a complicated construct containing many operators and 
parentheses. When a particular type of expression is intended, 
the terms "numeric expression" and "string expression" are used. 


NUMERIC EXPRESSIONS 


BASIC defines seven operators that operate on numeric operands 
to produce a numeric value: 


Operator Meaning Example 

= plus ek ey 

- minus - a 

+ addition a+b 
a subtraction a- b 
7 multiplication a * b 
/ division a / b 
m exponentiation a ~ b 
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The operators have their normal arithmetic meaning. The 
operations are performed using the floating-point instruction set 
of the Multics machine. Addition, subtraction, multiplication, 
and exponentiation of integer values are exact, provided the 
magnitudes of the operands and result are less than 2°27 (134,217,728) 
for single precision or 2°63 for extended precision. 


-The order in which these operators are evaluated is determined 
by special rules of precedence. The precedence of the numeric 
operators is: 


Precedence Operator 

4 (highest) unary -, unary + 
3 an 

2 * / 

1 (lowest) + = 


Operators with higher precedence are evaluated first. Operators 
of equal precedence are evaluated from left to right, except for 
the exponentiation and unary + and - operators, which are evaluated 
from right to left. For example, the expression 

azt+b+ee*dte* fg 
is interpreted as 

(a + b) + ((c * d) * (e * (f * g))) 


Parentheses can also be used to control the order of expression 
evaluation. 


Examples: 


a+ b/e 
(a + b)/e 


(a - b7 * 3.1415)/(e1 + d*2) 
ati,j) + bCj=1;,145) 
-a * b 


STRING EXPRESSIONS 


String expressions in BASIC are constructed using the 
concatenation operator &. This operator combines two string values 
to produce a string whose value is the characters in the first 
String immediately followed by the characters in the second string. 
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Examples: 


"hello " & "there" (Result: "hello there") 
"upper" & "case" (Result: "uppercase") 


af & b$ & c$ 
a$(i) & a$(i+1) 


FUNCTIONS 


A function reference consists of a BASIC function name or a 
user-defined function name optionally followed by a parenthesized 
argument list containing one or more arguments. The arguments 
used in a function invocation must match the number and type of 
arguments expected by the function. No conversion is done to 
match the argument provided with the argument expected. Function 
references are evaluated at the point where their value is required 
and do not affect the order of operator evaluation. All function 
arguments are evaluated before the function is evaluated. 


BASIC Functions 


BASIC provides a variety of functions for computing commonly 
used functions and for interrogating the operating environment of 
the program. Numeric function names consist of three letters; 
string function names consist of three letters followed by a dollar 
Sign. Except where explicitly stated otherwise, a numeric argument 
of a function can be any arbitrarily complicated numeric expression, 
and a string argument of a function can be any arbitrarily complicated 
string expression. 


The following list gives the numeric and string functions 
provided by BASIC; functions related to files are listed in Section 
4. In all of the descriptions that follow, x indicates an arbitrary 
numeric expression, i and j indicate arbitrary numeric expressions 
that are truncated to yield an integer value, and a$ and b$ indicate 
arbitrary string expressions. 
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Function 


abs(x) 


asc(c) 


arg$(n) 


atn(x) 


chr$(x) 


elg(x) 


elk$ 


ent 


cos(x) 
eot(x) 


dat$ 


det 


exp(x) 


int(x) 
len(a$) 


log(x) 


Description 


The absolute value of x. 


The decimal number corresponding to the single 


ASCII character or two- or three-letter 
character abbreviation c. Any single ASCII 
character can appear except quote, newline, 
apostrophe, space, and tab; character 


abbreviations are listed in Appendix A. 

The value of the nth command argument supplied 
by the Multics command processor. This function 
can be used when a BASIC main program has 
been called as a Multics command. 

The arctangent of x in radians (i.e., the angle 
whose tangent is x), where the angle is in 
the range -pi/2 to +pi/2. 

The one-character string that consists of the 
ASCII character with numeric. code 
mod(int(x),128). (See Appendix A.) 

The logarithm of x to the base 10. 


An eight-character string that gives the time 
of day in the form HH:MM:SS. 


The number of arguments supplied by the Multics 
command processor. This function can be used 
when a BASIC main program has been called as 
a Multics command. 

The cosine of x, where x is in radians. 


The cotangent of x, where x is in radians. 


An eight-character string that gives the current 
date in the form MM/DD/YY. 


The determinant of the last matrix that was 
inverted in this program using the matrix 
function inv. (See Section 6.) © 


The exponential of x (i.e., the- value of e 
raised to the power x). 


The largest integer not greater than x. 
The number of characters in the string a$. 


The logarithm of x to tne base e. 
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Function 


Max (XT 2s ig KN) 


min(x1,...,xn) 


mod(x,y) 


num 


pos(a$,b$,i) 


rnd 


seg$(a$,i,j) 


sgn(x) 


sin(x) 
sqr(x) 


sst$(a$,i,j) 


str$(x) 


Description 


The maximum of n numeric values. This function 
allows an arbitrary number of arguments. 


The minimum of n numeric values. This function 
allows an arbitrary number of arguments. 


The modulus function x - y * int(x/y); the 
value x is returned if y is 0. 


The number of data items transmitted into the 
last array by a mat-input statement. (See 
Section 6.) — 


The location in string a$ of the first occurrence 
of string b$, starting at or after position i 
in a$. A 0Ois returned if string b$ does not 
occur in the specified substring of a$ or if 
i <1 or i> len(a$). . 


The next pseudorandom number in a sequence of 
uniformly distributed pseudorandom numbers 
greater than or equal to O and less than 1. 
The period of the sequence is 2°35 - 1. 


The substring of a$ that consists of the 


characters between positions Os and. . 7! 
inclusive, where it = max(i,1) and j' = 
min(j,len(a$)). A zero-length string is 


returned if j' < i'; otherwise, the length is 
ji-i'+l. 


The signum of x: -1 if x < 0, 0 if x = 0, 
and +1 if x > 0. 


The sine of x, where x is in radians. 
The positive square root of x. 


The substring of a$ that consists of j' 
characters starting at the character in position 
it; where i! 2 max(i,1) and ae = 
max(min(j,len(a$)-i'+1),0). 


The string that is the decimal representation 
of the numeric value of x. The conversion 
follows the rules for printed output. (See 
Section 5.) | 
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Function Description 


tan(x) The tangent of x, where x is in radians. 


tim The elapsed running time of the program in 
seconds. This value is determined from the 
microsecond clock used by the Multics system, 


tst(a$) This function returns a value of 1 if the 
string a$ can successfully be converted to a 
numeric value according to the rules for numeric 
input; O is returned if the string a$ does 
not represent a valid numeric constant. 


usr$ A string giving the name of the user (e.g., 
Jones). 
val(a$) The value of the number’ whose. decimal 


representation is a$. 


User Functions 


In addition to the standard functions that it provides, BASIC 
allows the user to define his own functions. These function 
definitions are local to the program in which they appear. Two 
forms of function definition are permitted: single line functions 
and multiple line functions. 


A single line function returns the value of a numeric or 
string expression that can depend on the parameters, if any, of 
the function. A multiple line function can perform more complicated 
computations before it returns its result. 


The name of a user-defined numeric function consists of the 
letters "fn" followed by a single letter. The name of a user-defined 
string function consists of the letters "fn" followed by a single 
letter followed by a dollar sign. The same letter can be used 
for both a string function and a numeric function in the same 
program. | 


Examples: 
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A reference to a user-defined function consists of the name 
of the function optionally followed by a parenthesized argument 
list containing one or more arguments. The arguments supplied in 
a reference to a user-defined function must agree in number and 
type with the parameters expected by the function; no conversion 
is done to match the argument provided with the parameter expected. 
Arguments are passed to a user-defined function "by value"; this 
aliows the function to assign a value to a parameter without 
changing the corresponding argument. 


Multiple line functions can be defined with local variables. 
A variable used in a function body that is not a parameter or a 
local variable of the function is said to be a global variable. 
A global variable is defined in the program that contains the 
funetion definition. 


A multiple line function can call itself recursively, i.e., 
the function can be invoked while one or more previous invocations 
are still active. The recursive invocation can be direct, as the 
result of a use of the function from within its own definition, 
or indirect, as the result of a call from some other function. 
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SECTION 4 


FILES 


A BASIC file is a set of data external to the BASIC program. 
A file either is associated with an input/output device, or it 
resides in the Multics storage system as one or more segments. 
The data in a Multics BASIC file are organized into sequential 
records. The contents of a file are made available to the BASIC 
program by the execution of input/output statements that transmit 
data between the file and the program. 


BASIC permits two classes of files: terminal format files 
and random access files. 


TERMINAL FORMAT FILES 


A terminal format file is a string of ASCII characters organized 
into lines ending with newline characters. A line in a terminal 
format file consists of the contiguous string of characters between 
a newline character and the next newline character in the file. 
The length of a line of a terminal format file can be from 0 to 
#095 characters, inclusive. 


A terminal format file is read and written through a Multics 
T/O switch that is attached to the user's terminal, or to a file 
that resides in the Multics storage system, or to a specific 
input/output device. Terminal format files are accessed in a 
sequential manner; it is not possible to access an arbitrary line 
in a terminal format file. An I/O switch serves as a channel 
through which input/output is performed. 


H-] AM82-01 


RANDOM ACCESS FILES 


A random access file is a collection of data that can be 
accessed in a nonsequential manner. Input/output operations on 
random files normally process the file sequentially, but operations 
are available that permit the user to access any arbitrary datum. 
Random access files are not read or written through a Multics I/0 
Switch. Each random access file resides in a single segment within 
the Multics storage system. 


A random access file is called a random numeric file or a 
random string file according to the type of data it contains. A 
random access file can contain only a single type of data; numeric 
data cannot be stored in a string file, and string data cannot be 
stored in a numeric file. 


Numeric files used by programs compiled in extended precision 
mode must have double precision values. Likewise, numeric files 
used by single precision programs must have single precision values. 
(See Appendix D for information about converting files.) 


Random Numeric Files 


A random numeric file can be thought of as a vector of numeric 
values. Each record in a random numeric file consists of a single 
numeric datum. 


Random String Files 


A random string file can be thought of as a vector of strings 
of some previously specified maximum length; the default value of 
this maximum length is 10 characters, the maximum length can be 
as large as 4095 characters. Each record in a random string file 
consists of a single string datum. 


When a string value shorter than the maximum length is written 
into a string file, it is not extended to the maximum length. 
The current length of the string value is stored in the file 
along with the characters that comprise the string value. Writing 
a string into a string file and then reading it back results in a 
string of identical contents and length. 


FILE NAMES 


The name of a BASIC file is a string of ASCII characters. 
This string is used by the BASIC runtime system to locate the 
file. Whenever a file name is required by the BASIC program, the 
user can write an arbitrary string expression. There are two 
Kinds of file names: those that have a colon as the first character 
and those that do not. 
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When a colon is the first character of a file name, the file 
name specifies a Multics I/O switch name. An I/O switch serves 
as a channel through which input/output is performed. By specifying 
a switch, rather than a specific device or file, a BASIC program 
becomes device or file independent. The switch can be attached 
to a different device or file each time the program is executed. 
A file name of the form: 


-nhame 


connects the BASIC file to the I/O switch name, which must already 
he properly attached. A file name of the form: 


z:name attach-description 


connects the BASIC file to the I/O switch name; attach-description 
specifies the manner in which the switch should be attached if 
not already attached. The types of attachments that can be made 
are described in Appendix C. 


If BASIC attaches the switch, it also opens, positions, closes, 
and detaches the switch at the termination of the BASIC program. 
if the switch is already attached, BASIC opens, positions, and 
closes it but does not detach it. Finally, if the file name 
Specifies an I/O switch that is both attached and open, BASIC 
does not position, close, or detach the switch. 


File names that begin with a colon cannot be used for random 
access files. Examples of file names that have a colon as the 
First character are: 


:error output 
>xxx vfile xxx _file 
>input record stream_ 


-target ntape_ 123abc,9track -raw 


A file name that does not begin with a colon is interpreted 
S a Multics pathname that specifies a segment in the Multics 
storage system. The pathname can be either absolute or relative. 
,Refer to the New Users' Introduction to Multics Part I, Order 
Ho. CH24 for a description of absolute and relative pathnames. ) 
This kind of file name must satisfy ail constraints on pathnames 
(refer to the MPM Reference Guide) that are enforced by the Multics 
Operating system. Examples of this type of file name are: 


error output 

data 
>udd>projectid>personid>filea 
<input 
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FILE NUMBERS 


A BASIC program refers to its files by means of a file number. 
A BASIC file number is an integer from 0 to 16, inclusive. File 
number © always refers to the user's terminal, which is treated 
as a terminal format file. 

The correspondence between a file number and a file name is 
established by the file statement. A file is called "open" if it 
is currently assigned a file number and is called "closed" otherwise. 


oOo + 


A file statement results in an attempt to locate the specified 
file, either as an I/O attachment or as a Multics segment. If 
the file is located, the BASIC runtime system determines the type 
and attaches the file appropriately. Errors that can be detected 


include: an invalid file number, an invalid file name, no read 
access, a type not used by BASIC programs, and a numeric file 
that has a precision different from the program. If the file is 


not located, it will be created when first used. If an I/0 attachment 
is specified, there must be a valid attach description if the 
file is not already attached, and if the file is already open, it 


must be for stream input or stream output. 


A file remains open until it is closed. A file can be tlosed 
in one of two ways: 


1. When control returns from a BASIC program, either normally 
or abnormally, all files opened by the program are 
automatically closed. 


2. A file is closed if its file number is used in a subsequent 
file statement in the same program. 


FILE EXPRESSIONS 


Whenever a file number is required in a BASIC program, the 
user can write an arbitrary numeric expression whose value is 
truncated to an integer before it is used. Throughout this document 
the term "file expression" signifies a numeric expression that 
results in an integer value from 0 to 16, inclusive. 


TEMPORARY FILES 


The file name "*" refers to a temporary file that is created 
by the file statement that opens it. A temporary file is deleted 
at the termination of the program that created it. Each use of 
the file name "*" in a file statement results in the creation of 
anew file that is distinct from any other temporary files previously 
created. 


FILE ATTRIBUTES 


Each BASIC file has associated with it a type, a length, a 
margin, and a pointer. 


File Type 


A BASIC file has one of three types: terminal format, random 
numeric, or random string. The type of a nonempty BASIC file is 
uniquely determined by its contents. The type of an empty file 
is set by the first output to the file: a print statement causes 
the file to become terminal format; a write statement causes the 
file to become random numeric or random string depending on the 
type of the first datum written. The type of a BASIC file can be 
changed if and only if the file is empty. 


File Length 


The length of a terminal format file is the number of lines 
in the file. The length of a random file is the number of data 
elements in the file. The length of an empty file is 0. The 
length of a file can be changed by print, scratch, or write statements. 


margin of a terminal format file is the maximum number of 
rs that can be placed in a line of output before the 

ntime system automatically generates a newline character 
and sais a new line of output. Each character placed in the 
line is treated as if it advanced the terminal print head by one 
position; nonprinting characters such as tab or backspace are not 
treated specially. A margin of O for a terminal format file 
means that the output line is to be treated as if it were infinitely 
long; in this case, the line overflow check is suppressed. The 
default margin setting for a terminal format file is 75 characters. 
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The margin of a random string file is the length of the largest 
string that can be written into the file without being truncated; 
the default margin value is 10 characters. The margin of a random 
numeric file has no effect on the contents of the file but must, 
by convention, be 1. 


The margin of any BASIC file must be from 0 to 4095, inclusive. 
The margin of a file can be changed by the margin statement. 


File Pointer 


The file pointer specifies the next location in a file that 
is affected by an input/output: operation on the file. When a 
file is first opened, the file pointer points to the beginning of 
the file. 


The first print operation on a terminal format file causes 
the file pointer to be set to the end of the file before any 
characters are transmitted to the file. The file pointer of a 
terminal format file is changed by the input, linput, and print 
statements. The reset statement can be used to position the file 
pointer to the beginning of the file. 


The file pointer of a random file that contains N values can 
range from 0 to N-1. The file pointer of a random file is changed 
by the read and write statements. The file pointer can be changed 
- to point to any value in the file by means of the reset statement. 


FUNCTIONS 


The following functions are provided for obtaining information 
related to the status of BASIC files; n stands for a file expression, 
while a$ indicates an arbitrary string expression. 


Function _ Description 


hps(#n) The current value of the horizontal print 
position (number of characters in partial line) 
of the terminal format file assigned file number 
n. | 


loc(#n) The current value of the file pointer for the 
random access file assigned file number n; 0 
is returned if the file is empty. 


lof(#n) The current length (number of data items) of 


the random access file assigned file number 
n; 0 is returned if the file is empty. 
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Function. 


mar(#n) 


per(#n,a$) 


typ(#n,a$) 


NOTES 


Description 


The current margin of the file assigned file 
number n. 


The value +1 if the operation specified by a$ 
is permitted for file number n, O if the 
operation is not permitted, and -1 if a$ does 
not specify one of the operations input, linput, 
print, read, reset, scratch, or write. An 
operation is not permitted if the type of the 
file is incorrect or if there is no write 
access in the case of output operations. 


The value +1 if file number n is of type a$, 
0 if file number n is not of type a$, and -1 
if a$ does not specify one of the types numeric, 
String, terminal, tty, or any. Any open file 
has type any. An empty file has any type 
except tty. 


In Multics the # is a special character and in order for it 
not to perform its delete function it must be preceded by a backslash 
(\). See the MPM Communications I/0, Order No. CC92, for further 
information on special characters. 
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SECTION 5 


STATEMENTS 


This section discusses all BASIC statements except the array 
manipulation statements described in Section 6. When used in a 
program, each statement must have a line number. For the sake of 
Simplicity, line numbers are omitted here. 


CALL STATEMENT 
Syntax: 


call s$ 
or 
call s$ : list 


where s$ is a string expression, and list is a list of argument 
specifications. An argument specification can be an expression, 
an array argument, a function argument, or a file argument. 


semantics: 


The call statement transfers control to the program whose 
name is given by the value of the string expression s$. The 
program can be compiled with the program in which the call statement 
is located or it can be separately compiled, in which case the 
called program can be written in some other language. When the 
called program returns (in the case of a BASIC program by executing 
a stop, subend, or end statement) execution continues with the 
Statement following the call statement. 
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The program name can be a simple segment name, a combined segment 
and entry name in the form segment$entry, or either of these 
prefixed by an arbitrary pathname. If the specified program is 
not found in the current program, the Multics search rules in 
effect at the time of the call are used to find it or, if a path 
is specified, the indicated segment is initiated. Some exampies 
of program names are: 


"integrate" 
"solve$initialize" 


"solve" 
">udd>projectid>personid>library>ROUTINE" 
a$ & b$ 


Arguments 


The number and type of arguments passed to a BASIC subroutine 
must agree in number and type with the parameters expected by the 
Subroutine. Four types of arguments can be passed: expressions, 
arrays, functions, and files. 


EXPRESSION ARGUMENTS 


Expression arguments are passed to the called subroutine by 
location. If an argument in the call statement is a scalar variable 
or a reference to an array element, the corresponding parameter 
in the subroutine is identified with the location of the argument 
so that any change to the program parameter immediately results 
in a change to the argument. If the argument is an expression or 
constant rather than a reference, the value of the argument is 
saved in a temporary location and this location is passed to the 
subroutine. 


If the value of a function that takes no parameters is to be 
passed, the function name must be enclosed in parentheses. 


Xx 
a3 + rnd 


y * sin(z) 
(clk$) 


5-2 AM82-01 


ARRAY ARGUMENTS 
An array argument is written as 
b() 

for a vector and 
b(,) 


for a matrix, where b is the name of the array. The location of 
the array is passed to the subroutine along with the current and 
original array bounds. Any change to an element of the parameter 
array from within the subroutine immediately results in a change 
to the corresponding element in the argument array. The subroutine 
can change the current bounds of the array. 


Examples: 


FUNCTION ARGUMENTS 


A function argument consists of the name of a BASIC or 
user-defined function. A use of the function from within the 
called subroutine must provide the correct number and type of 
arguments. Any names in the body of a user-defined function that 
are not function parameters or local variables of the function 
refer to the corresponding objects in the program in which the 
function is defined. 


Examples: 


FILE ARGUMENTS 
A file argument is written as: 


ff on 
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where n is a file expression. The file parameter in the called 
subroutine refers to the same file as the calling program; the 
file type, length, margin, pointer, and contents at entry to the 
subroutine remain as they were after the last operation affecting 
the file in the calling program. Any change to the file from 
within the called subroutine is retained after the subroutine 
returns. 


Examples: 


Interlanguage Calls 

Calls between BASIC programs and programs written in other 
languages are subject to restrictions on the types of arguments 
that can be passed; functions, files, and arrays of strings cannot 
be passed. See Appendix B for further details. 
Call Statement Examples 


The following are examples of the call statement: 


"init" 
a$ & "routine": a() 


"write": #k, a$(,) 
"integrate": fna, 1, 10, le-5 
"calculate": a, b(), sin(x-y/z) 


CHANGE STATEMENT 
Syntax: 
change n to s$ 
or 


change e$ to n 


where n is a numeric vector, s$ is a string reference, and e$ is 
a string expression. 
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Semantics: 


The change statement converts a string, considered a list of 
eharacters, to and from a numeric vector, considered a list of 
integers. The first form of the change statement sets the string 
variable to a string value whose length is given by the number 
found in the zero element of the numeric vector; the kth character 
of the string value is the character whose ASCII code is given by 
the kth element of the numeric vector. The second form of the 
change statement sets the values in the numeric vector so that 
the zeroth element of the vector is the length of the string 
expression and the kth element of the vector contains the numeric 
equivalent for the kth character in the string (see Appendix A). 


700 change a to b3$ 


125 change seg$(a$,i+1,j-2) to b 


Change Bit Statement 
Syntax: 
change n to s$ bit m 


or 
change e$ to n bit m 


where n is a numeric vector, s$ is a string reference, e$ is a 
string expression, and m is a numeric expression. m represents a 
bit width; it is truncated to an integer value m', which must de 


from 1 to 27, inclusive. 
semantics: 


The change-bit statement converts a string, considered a sequence 
of bits separated into pseudocharacters of length m', to and from 
a numeric vector, considered a list of integers. The first form 
of the change-bit statement packs the elements of the numeric 
list into a string value with each element occupying m' bits; the 
length of the string is the number of 9-bit characters required 
te hold the number of pseudocharacters specified by the zeroth 
element of the numeric array. The second form of the change-bit 
statement sets the kth element of the numeric vector to the integer 
value corresponding to the kth pseudcocharacter in the string value; 
the zeroth element in the numeric vector is set to the number of 
pseudocharacters in the string expression. 
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When changing from a string to a vector, the last few bits of 
the string are ignored if the string is not composed of an integral 
number of pseudocharacters. When changing from a vector to a 
string, enough 0 bits are appended to the string of pseudocharacters 
to make an integral number of ASCII characters. When m' = 9, the 
change-bit statement is equivalent to the change statement. 


10 change a to c$(a+j) bit 2*n+1 


20 CHANGE a$ & b$ to x BIT 4 


DATA STATEMENT 
syntax: 


data list 
or 
data list , 


where list is a list of BASIC numeric or string constants separated 
by commas. A trailing comma is ignored. 


semantics: 


The data statement is a nonexecutable statement that creates 
a block of data to be read by a read statement; any number of 
data statements can appear at any place in the program. Data 
from all of the data statements in the program, taken in the 
order in which the data statements ocaurred, are combined to create 
two blocks of data: a numeric block and a string block. Numeric 
and string constants can be freely intermixed in a data statement; 
each value is entered in the appropriate data pool. 


In certain cases the quotation marks around a string constant 
appearing in a data statement can be removed. If a string constant 
does not contain any blanks, tab characters, uppercase characters, 
backslash characters, or nonprinting ASCII characters, and does 
not begin with a digit, a plus sign, or a minus sign, the quotation 
marks can be omitted. It is never incorrect to place quotation 
marks around string data. 


100 data 1,2 
200 data 3.1415,2.783,0, 


300 DATA these,are,unquoted,strings 
400 data "This is a quoted. string",1,2, "George" 
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DEF STATEMENT 


Single Line Functions 
Syntax: 


def f =e 
or 
def f(list) = e 


where f is the name of the function to be defined, e is anexpression, 
and list is a list of parameters separated by commas. 


Semantics: 


The single line def statement defines a function whose value 
is the value of an expression that can refer to the optional 
function parameters. The type of the expression must be the same 
as the type of the function being defined. A given function 
cannot be defined by more than one def statement in a program. 


A parameter is a scalar variable that is local to the function 
body and has no relationship to any variable of the same name 
used elsewhere in the program. The value of a function parameter 
is initialized to the the value of the ccrresponding function 
argument when the function is called. A use inside the function 
body of a variable that is-not a parameter refers to the variable 
of the same name defined outside the function definition. 


A def statement can appear anywhere in the program, either 
before or after the first use of the function. A def statement 
has no effect when encountered during program execution. 


100 def fnp = 3.14159 
110 def fna(x) = sar(1-a* x * fnp) 


120 def fnb(a$,b$) = abs(len(a$) - len(b$)) 
130 def fna$(a$,b$) = sst$(a$,1,pos(a$,b$,1)-1) 


Multiple Line Function 
Syntax: 


def f 
or 
def fv 
or 
def f(list) 
or 
def f(list)v 
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where f is the name of the function to be defined, list is a list 
of parameters separated by commas, and v is a list of local variables 
separated by commas. 


Semantics: 


This form of def statement is the first statement in a multiple 
line function definition that is terminated by a subsequent fnend 
statement. The body of the function can contain any number of 
statements; a def statement, sub statement, or subend statement 
cannot be used in a function body. 


Within the body of the function, the name of the function can 
be used as a scalar variable of the same type as the function; 
its value is always the value to be returned by the function. 
The value of the function is initialized to O or the null string 
when the function is entered; alet statement (or any other statement 
that can cause a variable to change its value) can be used to 
assign a new value for the function. Some examples of this special 
use of the function name are: 


100 let fnf = 2 * fnf 
120 input fnx$ 


A parameter is a scalar variable that is local to the function 
body. The value of a function parameter is initialized to the 
value of the corresponding function argument when the function is 
called. A change in the value of a function parameter does not 
cause a change in the value of the corresponding function argument. 


A local variable (as specified in the def statement) is 
initialized to 0 or the null string; the values of the local 
variables are lost when the function returns. Any variable used 
in the function that is not a parameter or a local variable refers 
to the variable of the same name defined outside the function 
definition. 


A function definition can occur anywhere in the program, either 
before or after the first use of the function. When a def statement 
is encountered during program execution, execution continues with 
the statement following the matching fnend statement. It is not 
possible to jump into or out of the function body; the function 
can only be invoked by a function call. 


100 def fng(x,y) 


130 def fnx$(a,b$),x,y$,z 
150 def fnh 
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DIM STATEMENT 
Syntax: 
dim list 


where list is a list of array declarators separated by commas. 
Each array declarator has the form: 


e(b1) 
for vectors and: 
e(b1,b2) 


for matrices; c is the name of an array; b1 and b2 are unsigned 
integer constants that specify the upper bound of the corresponding 
array dimension. . 


Semantics: 


The dim statement explicitly declares array names and establishes 
the number of dimensions and number of elements in each dimension 
of the arrays specified. The lower bound of each array dimension 
is always 0. The bi + 1 locations are reserved for a vector; (b1 
+ 1) ® (b2 + 1) locations are reserved for a matrix. 


Any number of dim statements can appear anywhere in the program; 
a dim statement has no effect when executed. A dim statement can 
appear either before or after the first use of an array; if the 
dim statement appears afterwards, the number of dimensions given 
in the dim statement must agree with the number of dimensions 
determined from the context of the first usage. An array name 
can be explicitly declared only once in a program. 
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END STATEMENT 
Syntax: 

end 
Semantics: 

The end statement indicates the end of a main program. If 
there are no subroutines in the same segment, the end statement 
must be the last statement in the source. If subroutines are 
present, they must follow the end statement. . 

Executing an end statement causes the main program to finish 


normally. All files opened by the main program are closed and 
control returns to the program that invoked the main program. 


pe 


FILE STATEMENT 


Syntax: 

file #n: s$ 
where n is a file expression and s$ is a string expression. 
Semantics: 

The file statement opens the file with name s$ and assigns it 
file number n. Any file previously assigned file number n is 


closed. File number 0, which refers to the user's terminal, cannot 
be used in a file statement. 


100 file #1: "alpha" 


200 FILE #m: a$(i+2) 


FNEND STATEMENT 
Syntax: 


fnend 
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Semantics: 


The fnend statement marks the end of a multiple line function 
definition. See the description of the def statement. 


175 fnend 


FOR STATEMENT 


Syntax: 
for v el to e2 
or 
for v = e1 to e2 step e3 


where v is a reference to a scalar numeric variable, and el, e2, 
and e3 are numeric expressions. 


Semantics: 


The for statement marks the beginning of a for-next loop; it 
is always used in conjunction with a subsequent next statement 
that specifies the same scalar numeric variable. When the optional 
step expression e3 is omitted, the value +1 is used. 


The group of statements between the for statement and the 
matching next statement, called the body of the loop, is executed 
repeatedly according to the following steps: 


1. The expressions el, e2, and e3 are evaluated and the resulting 
values are saved. Let e1', e2', and e3' represent the 
saved values, which are inaccessible to the user's program. 


2. The control variable v is set to the value of expression 
ei'. 


3. If e3' >= 0 and v > e2' or if e3' < G and v < e2', the 
loop is terminated and execution continues with the statement 
after the matching next statement; otherwise, execution 
continues with step 4. 


4. The body of the for-next loop is executed. 


5. When the next statement that marks the end of the for-next 
loop is executed, the control variable v is set to v + 
e3' and step 3 is repeated. 
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The value of the control variable can be modified by statements 
within the body of the loop, and its value is available at the 
end of the loop. The body of the loop can contain statements 
that jump out of the loop, but undefined results can occur if a 
Statement outside the for-next loop attempts to jump into the 
body of the loop. 


For-next loops can be nested to a depth of eight. For-next 


loops cannot be interleaved. A for-next loop cannot use the same 
control variable as a for-next loop that contains it. 


100 for i 1 to 10 


200 for al = -y to y+10 step .1 
300 for x n to -3 step -1 


GOSUB STATEMENT 
Syntax: 

gosub ln 
where ln is a line number. 
Semantics: 

A gosub statement saves the line number of the statement following 
it and transfers control to the statement whose line number is 
specified in the gosub statement. When a return statement is 
subsequently executed, control returns to the statement whose line 
number was saved. 

There can be any number of gosub statements executed before a 
return statement; the BASIC runtime system maintains a last-in 
first-out stack of pending returns. Any pending gosub returns 


that originated in a program or user-defined function are discarded 
when control leaves the program or function. 


173 gosub 1000 


GOTO STATEMENT 


Syntax: 
goto ln 


where ln is a line number. 
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semantics: 


The goto statement causes execution to continue with the 
statement whose line number is ln. 


100 goto 75 


200 go to 400 


IF STATEMENT 
Syntax: 


if el rel e2 then ln 
or 
if el rel e2 goto in 


where el and e2 are either both numeric expressions or both string 
expressions, ln is a line number, and rel is one of the:following 
relational operators: 


Operator Meaning 


less than 

greater than 

less than or equal 
less than or equal 
greater than or equal 
greater than or equal 
equal 

not equal 

not equal 


VAH HW NMA 
VA 


NV 


semantics: 


If ei and e2 satisfy the relationship specified by rel, control 
is transferred to the statement with line number ln; otherwise, 
execution continues with the statement following the if statement. 


100 if a$ = "yes" then 125 
200 IF ABS(X-Y) < E THEN 75 
307 if x <> 0 goto 999 


500 if a$ <= b$ then 200 | 
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IF-END STATEMENT 
Syntax: 

if end # n then ln 

or 

if end # n goto In 
where n is a file expression and ln is a line number. 
Semantics: 

Control is transferred to the statement with line number In 
if there are no more data items to be input from the terminal 


format file with file number n; otherwise, execution continues 
with the statement following the if statement. 


125 if end # 1 then 200 - | 


IF-MORE STATEMENT 


Syntax: 

if more # n then ln 

or. 

if more # n goto In 
where n is a file expression and ln is a line number. 
semantics: 

Control is transferred to the statement with line number ln 
if there are more data items available for input from the terminal 


format file with file number n; otherwise, execution continues 
with the statement following the if statement. 


2175 if more #n goto 200 © 
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INPUT STATEMENT 
Syntax: 


input list 
or 
input list , 


where list is a list of references separated by commas. 


Semantics: 


The input statement causes data values to be read from the 
user's terminal and assigned, in order, to the references in the 
input list. The subscript expressions in an array reference in 
the input list are not evaluated until all references that precede 
it in the input list have been assigned values. 


When the input statement is executed, the BASIC runtime system 
prints the prompt "? " on the user's terminal without a newline 
as an indication that input is required. The user must enter a 
set of numeric or string constants separated by commas. If too 
few data values are provided, the BASIC runtime system prints a 
message and requests more data. If too many data items are provided, 
the BASIC runtime system prints a message and ignores the excess 
values. 


The data items provided by the user must match the type of 
the corresponding reference in the input list. If the data types 
do not match or there is any other error, a message is printed 
and the incorrect data value and all values following it must be 
retyped. 


When a numeric value is expected, the BASIC runtime system 
gathers all characters up to the next comma or newline; blanks 
and tabs are ignored. If the resulting string of characters is 
the word stop, execution of the program containing the input statement 


is terminated; otherwise, the string must be a legal BASIC numeric 
constant. 


Either a quoted or an unquoted string can be used when a 
string value is expected. Quotes are necessary only if the string 
value is to begin with blanks or contain a comma or quote. Unlike 
unquoted string constants written explicitly in the BASIC program, 
uppercase characters are not converted to lowercase. 


If the input statement ends with a comma, any data values 
that remain after the input iist has been satisfied are not discarded, 
but are saved for the next statement that requests input from the 
terminal. When the next input statement is executed, no prompt 
is printed until all of the saved data values have been processed. 
The saved data values are discarded if a print statement is executed 
before this or some other statement that requests input from the 


user's terminal is executed. 
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a,b,a$ 
n,a(n) 


e$,x1, 
e(i,j) 


INPUT-FILE STATEMENT 
Syntax: | 


input #n : list 
or 
input # n : list , 


where n is a file expression and list is a list of references 
separated by commas. 


Semantics: 


This variation of the input statement requests input from the 
terminal format file with file number n. If the file number is 
0, this form of the input statement is the same as the simpler 
form in which the file number is omitted. 


If the file number is nonzero, as many lines as are necessary 
to satisfy the input list are read from the specified file starting 
at the current value of the file pointer. No prompting messages 
are printed. Any erroneous input or an attempt to read past the 
end of the file causes a message to be printed after which execution 
of the program containing the input-file statement is terminated. 


After each data value in the file has been processed, the 
file pointer is advanced to the character after the comma or 
newline that delimited the data value. 


Like the input statement, if the input-file statement ends 
With a comma, any data values that remain after the input list 
has been satisfied are not discarded, but are saved for the next 
statement that requests input from the terminal. When the next 
input-file statement is executed, no prompt is printed until all 
of the saved data values have been processed. The saved data 
values are discarded if a print-file statement is executed before 
this or some other statement that requests input from the user's 
terminal is executed. 
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input #1: a,b,c 


INPUT # k+2: n,a(n-1), 
input #0:i,j$ 


LET STATEMENT 


Syntax: 

let v =e 
or 

let vi =v2<=. = Vn. t=) 6 
or 

Ve=e 
or 

vil = v2 =...= vn =e 


where v, v1, v2, ..., vn are either all numeric references or all 
string references and e is an expression of the same type as the 
reference(s). 


semantics: 


The let statement assigns the value of an expression to one 
or more scalar variables or subscripted array elements of the 
same type. All subscript expressions in the list of references 
are calculated before the expression is evaluated and before any 
assignments are done. 


100 let x(5) = saqr(q + y*%3) 
217 let i=i + 1 


345 a$ bs & seg$(c$,i,j) 


a(i) = 5 


LINPUT STATEMENT 
Syntax: 
linput list 


where list is a list of string references separated by commas. 
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Semantics: 


The linput statement causes each string reference in the list 
to be assigned a string value consisting of all the characters in 
a line of input (except the newline character at the end). This 
permits the user to enter strings containing characters that might 
otherwise have special significance to BASIC. 


Each time a string value is required, a prompt is printed and 
an entire line is read and used for the string value. If the 
last input- or mat-input statement ended in a comma and there is 
a partial line left, the initial prompt is omitted and the partial 
line is used as the first string value. 


300 linput ai$, b$(i+3) | | | 


LINPUT-FILE STATEMENT 


syntax: 
linput #n: list 


where n is a file expression and list is a list of string references 
separated by commas. 


Semantics: 


This variation of the linput statement requests lines of input 
from the terminal format file with file number n. If the file 
number is 0, this form of the linput statement is the same as the 
simpler form in which the file number is omitted. 


If the file number is nonzero, as many lines as are necessary 
to satisfy the list of references are read from the specified. 
file starting at the current value of the file pointer. No prompting 
messages are printed. If a previous input- or mat-input statement 
referencing the same file ended in a comma and there is any partial 
input line left, the value of the first string reference is set 
to the partial line. The file pointer is left pointing at the 
character after the newline of the last line read from the file. 


123 linput #12 : a4$ 
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MARGIN STATEMENT 
Syntax: 

margine 
where e is a numeric expression. 
Semantics; 

The margin statement sets the maximum number of characters 
that can be printed on the user's terminal. The value of the 
expression is truncated to yield an integer value for the new 
margin. The new margin takes effect immediately, even if there 
is a partially constructed output line. The margin value lasts 
for the lifetime of the process or run unit, or until another 


margin statement in any BASIC program is executed. The default 
margin is 75. 


20 margin 120 


MARGIN-FILE STATEMENT 


where n is a file expression and e is a number expression. 
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Semantics: 


This variation of the margin statement sets the margin of the 
Specified file to the truncated value of the numeric expression. 
In the case of a terminal format file, the new margin takes effect 
immediately; the margin of a random access file can be changed 
only if the file is empty. If the file number is 0, this form of 
the margin statement is the same as the simpler form in which the 
file number is omitted. 


40 margin #6: m . 


NEXT STATEMENT 


Syntax: . 
next v 
where v is a reference to a scalar numeric variable. 
Semantics: 
The next statement marks the end of a for-next loop; it is 


always used in conjunction with a preceding for statement ‘that 
Specifies the same scalar numeric variable. 


710 next x | 
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ON-GOSUB STATEMENT 
syntax: 
on x gosub 11, 12, ..., ln 


where x iS a numeric expression and 11, 12, ..., ln are line 
numbers. 


Semantics? 


The on-gosub statement uses the value of the numeric expression 
to select one of the line numbers as the target of a gosub operation. 
The value of the expression is truncated to yield an integer x' 
that must be greater than O and less than or equal to the number 
of line numbers. The line number of the statement following the 
On-gosub statement is saved on the gosub return stack. If x' is 
1, execution continues with line 11; if x’ is 2, execution continues 
With line 12; and so forth. 


220 on i gosub 1000,2000, 3000, 4000 


ON-GOTO STATEMENT 


Syntax: 


On “% <gOt0- 114. 225. we2eq En 
or 
on x. then 11, 12, 2/25 10 


where x is a numeric expression and 11, le, ..., ln are line 
numbers. 


Semantics: 


The on-goto statement uses the value of the numeric expression 
to select one of the line numbers as the target of a goto operation. 
The value of the expression is truncated to yield an integer x' 
that must be greater than 0 and less than or equal to the number 
of line numbers specified. If x' is 1, execution continues with 
line 11; if x' is 2, execution continues with line 12; and so 
forth. 


| 100 on sgn(x-y)+2 goto 110,120,130 | 
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PRINT STATEMENT 
Syntax: 


print 
or 
print list 


Where list is a list of optional print elements separated by 
commas or semicolons. A print element can be an expression, a 
tab request, or a space request. Any number of consecutive commas 
or semicolons can be present in the list. 


Semantics: 


The print statement generates lines of output to be printed 
on the user's terminal. A single print statement can generate 
one line, several lines, or only part of a line of output. -The 
characters generated by a print statement are sent to the terminal 
at the end of the statement, even if this means that the terminal 
print head is left sitting in the middle of a line. 


The format of the line image is determined by the elements in 
the print list. Each element in the print list is evaluated to 
yield a string of characters to be placed in the output line. If 
the resulting string fits on the current line, the characters are 
appended to the partial line. 


If the string of characters corresponding to the print element 
would cause the length of the current output line to exceed the 
margin, a newline is placed at the end of the line; the remainder 
of the line is transmitted to the terminal; and a new line is 
begun. If the string of characters derived from the print element 
is longer than the margin, the string is split across as many 
complete lines as are required to hold it. 


Numeric Expressions 


A numeric expression appearing in a print list is evaluated 
and converted to a character string representation. One of three 
formats is used for the string representation, depending on the 
characteristics of the numeric value. In all cases, the string 
begins with a sign character and ends with a blank; the sign is a 
blank if the value is positive and a minus sign if the value is 
negative. 
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INTEGER FORMAT 


Numbers printed in integer format consist of a string of from 
one to n decimal digits without a decimal point where n is nine 
for single precision and nineteen for double precision. Integer 
format is used for integers whose absolute value is less than 
2°27 (134,217,728) for single precision and less than 2763 
(9223372036854775808) for double precision. Some examples of 


numbers in integer format are: 


FRACTIONAL FORMAT 


Numbers printed in fractional format consist of from one to 
six decimal digits with a decimal point. Trailing O's in the 
fractional part are omitted; a number less than 1 is represented 
with a zero to the left of the decimal point. Numbers printed in 
fractional format are rounded to six digits. Fractional format 
is used for nonintegers whose absolute values are in the range 
0.0999995 to 999999.5 or whose absolute values are less than 0.0999995 
and can be exactly represented with six digits. In double precision 
mode, the number of digits may be specified by the setdigits 
statement. Some examples of numbers in fractional format are: 


SCIENTIFIC FORMAT 
A number printed in scientific format appears as: 


xX E+y or x E-y 
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where x is a number whose absolute value is greater than or equal 
to i and less than 10 printed in fractionai notation and y is a 
power of 10 such that the numeric value being convertedisx * 10 * y. 
Numbers printed in scientific format are rounded to six digits. 
In double precision mode, the number of digits may be specified 
by the setdigits statement. Scientific format is used whenever 
integer or fractional format cannot be used. Some examples of 
numbers printed in scientific format are: 


-7.31567 E+13 


1.27 E-21 
-1. E=32 


String Expressions 


A string expression in the print list is evaluated and the 
resulting string of characters is placed in the output line. The 
BASIC runtime system does not look at the contents of the character 
string; unpredictable results can occur if the string contains 
characters that do not advance the print head by precisely one 
position. 


Comma Separator 


The output line is normally considered to be divided into 
zones of 15 characters each. The first zone starts in column 0, 
the second zone starts in column 15, and so forth. The zone 
after the last zone on a line is the first zone on the next line. 
The number of zones available is determined by the current value 
of the margin; the default margin value of 75 permits five zones. 


A comma in a print list causes the print head to advance to 
the beginning of the next available zone; this can cause the 
eurrent line to be printed and a new line to be started. If a 
comma is the last element in the print list, the partial line, if 
any, is printed and the print head remains positioned at the 
start of the new zone. 


Semicolon Separator 


A semicolon in a print list is used only to separate print 
elements and does not affect the position of the print head. 
This permits the elements on either side of the semicolon to be 
printed without any extra spaces between them. If a semicolon is 
the last element in the print list, the partial line, if any, is 
printed and the print head remains positioned at the character 
after the last character printed. 
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Tab Request 


The tab print element requests that the print head be moved 
to a specific column. A tab request is written as: 


table) 


where e is a numeric expression. The truncated value of the 
expression is taken modulo the current margin value to yield a 
value e' for the desired column. If the print head is already 
past column e', nothing happens; otherwise, the print head is 
positioned at column e'. Since a comma in the print list advances 
the print head, a tab request should normally be followed by a 
semicolon. 


An example of a tab request in a print list is: 


Xx; tab(40); y 


Space Request 


The space print element requests that the print head be advanced 
by a specific number of columns. A space request is written as: 


spefle) 


where e is a numeric expression. The value of the expression is 
truncated to yield an integer e' that gives the number of spaces 
desired. If the specified number of spaces would take the print 
head past the margin, the space request is ignored; otherwise, 
the print head is advanced. 


List Termination 

If the print list does not end in a comma or a Semicolon, a 
newline character is appended to the line and the line is transmitted 
to the terminal. A completely empty print list causes the previous 
line to be finished or a blank line to be printed. 
Print Statement Examples 


The following examples show the optional print elements and 
r 


ié 
separators described in the previous paragraphs: 
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print 

print x,sin(z*2 - y%2) 
print "Value is ";xey 
print ,,,a$ & seg$(b$,i,j) 
print x; . 

print x,y, 


print #n: list 


where n is a file expression and list is a list of optional print 
elements separated by commas or semicolons. A print element can 
be an expression, a tab request, or a space request. Any number 
of consecutive commas or semicolons can be present in the list. 


Semantics: 


This variation of the print statement directs output to the 
terminal format file with. file number n. If the file number is 
0, this form of the print statement is the same as the simpler 
form in which the file number is omitted. 


If the file number is nonzero, lines are written into the 
file starting at the current position of the file pointer. Each 


time a partial line is written into the file, the file pointer is 
updated to point to the character after the last character written. 


100 print #3: x,fna(x) ; 


PRINT-USING STATEMENT 


Syntax: 

print using f$ 

print using f$ ; 

print using f$, list 
print using f$, list ; 
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where f$ is a string expression and list is a list of expressions 
separated by commas. 


Semantics: 


The print-using statement generates lines of output to be 
printed on the user's terminal. A single print-using statement 
can generate one line, several lines, or only part of a line of 
output. The characters generated by a print-using statement are 
sent to the terminal at the end of the statement, even if this 
means that the terminal print head is left sitting in the middle 
of a line. 


Format Fields 


The string specified by f$ contains a description of the editing 
to be applied to the vaiues in the print list. The format string 
f$ is divided into a series of fields, each of which controls the 
formatting of a single value in the print list. Two types. of 
fields are .possible: numeric fields and string fields. A numeric 
field can only be used with a numeric value and a string field 
can only be used with a string value. 


There are eight special characters used for defining fields 
in the format string. These characters and their effects are 
given in the following table: 


Start a numeric field; print a floating minus 
sign for negative numbers and reserve a 
place for a digit for positive numbers. 


+ Start a numeric field, print a floating 
plus sign for positive numbers and a 
floating point minus sign for negative numbers. 


Mark the position where a decimal point is to be 


printed. 
$ Start a numeric field; print a floating dollar sign. 
- Specify the exponent part of a numeric field. 
< Start a string field; print string left justified. 
> Start a string field; print string right justified. 
# Reserve a place in either a numeric of a string field. 
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A format field consists of all of the characters from the 
character that starts the field until the end of the format string 
or the character before the character that starts the next field, 
whichever comes first. 


A character that is not one of the eight special format characters 
is called a literal character. Literal characters occurring in a 
field are normally placed in the line image unchanged; they can 
be replaced by blanks as described below under "Numeric Fields". 


1. A "+" or a "=" can be immediately preceded by a "$", 


2. If a "$" is not immediately followed by a "+" or "=", tan 
is assumed. 


3. The exponent field must be written ae ee 
4, A "“#" cannot start a field. 


5. A"." ds a literal character when it occurs outside of a 
numeric field. 


The following are examples of format strings: 


"xy is -## and f(x) is +##.##°°**7**" 
"RECEIPTS $-##, ###.00" 
"CHEER E > d at dt a EEE 


In the first example, the string "x is " precedes the first field 
which consists of the string "-## and f(x) is "; the second field 
consists of the string "+##.##°°7°*", 


Format Processing 
The print-using statement is processed in the following manner: 


1.. The optional string of literal characters that precedes 
the first field in the format string is placed in the 
line image with normal margin checking. 


2. Each expression in the print list is evaluated, in turn, 
and its value is used to evaluate the corresponding field 
in the format string. The string of characters resulting 
from the evaluation of the format field is placed in the 
line image. 


3. If there are more format fields than expressions in the 
print list, the extra fields are ignored and processing 
ceases. : 


4. If the end of the format string is reached before the 


last expression has been evaluated, a newline is added to 
the current output line, the line is transmitted to the 
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UI 


terminal, and the entire format string is used again, 
starting with the first field. 


If the print list does not end in a semicolon, a newline 
is added to the line image. The line is transmitted to 
the terminal. 


If the string of characters resulting froma field evaluation 
would cause the margin to be exceeded, characters are 
placed in the line until the margin is exactly reached, a 
newline is appended, the characters are sent to the terminal, 
and the remaining characters are placed in the following 
line. As many lines as are necessary to hold the field 
value are used. 


Numeric Fields 


A numeric field that does not contain an exponent part is 
evaluated as follows: 


Ts 


Each "#" in the field reserves a place for a digit in the 
converted numeric value. A "=~" reserves a place for a 
digit if the numeric value is positive. Let P be the 
number of digit places reserved. 


If the field does not contain a ".", the numeric value is 
converted with rounding to a decimal integer of P digits. 
If the fieid contains a "." followed by Q digit places, 
the numeric value is converted to a decimal number of P 


digits and is rounded to Q fractional digits. Let D be 
the string of digits obtained. 


If P = 0, or Q > 38, or any high-order digits are lost in 
the conversion performed by step 2, the value of the field 
is the string of characters in the field with each "4+", 
wa wow. and a replaced by a We 


Leading O's in the integer part of D are replaced by 
blanks, except a blank is never placed inthe units position. 
If more than n digits remain after leading O's have been 
removed, ail digits after the nth digit are replaced by a 
no"loon is nine for single precision but may be specified 
by the setdigits statement for doubie precision. 


A copy is made of the characters in the field with each 
character in the field that reserved a digit position 
being replaced by the corresponding character of D. Let 
C be the string thus obtained. 


All characters in C to the left of the first digit that 
is not a 0 are replaced by blanks. 
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9. 


If the field contains a "+", the sign of the numeric 
value replaces the blank immediately preceding the leftmost 
digit of C. If the field contains a "-" and the numberic 
value is positive, no action is taken. If the field contains 
a "=~" and the numeric value is negative, a "-" replaces 
the blank just preceding the leftmost digit, or, if there 
is no blank, a leading 0 in the units position. 


If the field begins with a mg a "$" replaces the blank 
just preceding the sign or leftmost digit of C. 


The value of the field is the string obtained in step 8. 


A numeric field that contains an exponent part is evaluated 
as follows: 


Ve 


Each "#" in the field reserves a digit position. Let P 
be the number of digit positions. 


If the field does not contain a".", let Q be 0; otherwise, 
let Q be the number of digit positions to the right of 
cne, vila The numeric value is evaluated and converted 
with rounding to a decimal value D of P digits with Q 
fractional digits and exponent E such that the original 
value is D * 10 * E. If the value of the expression is 
not 0, the leftmost digit of Dis not 0. 


A copy is made of the characters in the field with each 
character that reserved a digit position being replaced 
by the corresponding digit of D. Let C be the copy obtained. 


A "+" in C is replaced by the sign of the numeric value; 
a "~" in C is replaced by a space if the numeric value is 
positive. 


The first "“" in the exponent field is replaced by a 
blank; the second "*" is replaced by an "E":; the third 
"“" is replaced by the sign of the exponent E; and the 
last two "“"s are replaced by the decimal exponent digits. 
If the exponent can be represented by a single digit, the 
last character of the exponent field is replaced by a 
blank. 


The value of the field is the string obtained in Step 5. 
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Some examples of numeric field evaluation are presented here 
(6 represents a single blank): 


Field Internal Value External Form 

- ## 2 BB 
HF -23 -23 

— # # 476 476 

~ # # -476 % ## 

+H 23 +23 

+ # if -23 -23 

+i#t 476 #* ¥# 

+H i# 0 b+0 

—##. ## 17.479 617.48 

— tit. Ht 1.7479 bb1.7 

-##. HH 17479 bb0O.17 

-##. #4 -.172 b-0.17 

-.## 0.23 0.23 

~.## -0.23 -.23 

- 7 

= ay % 

$—#, FE. OO 18.43 $6666$18.00 
$-# ,###.00 -1234 $-1,234.00 
-~##.##O°"** 123.4 612.34 E+1b 
-##. #EOO*** -1.234e14 -12.34 E+13 
-##.#EC CCC 0 600.00 E+04b 


String Fields 


A string field is evaluated as follows: 


V« 


Each "#' in the field reserves a character position as 
does the "<" or ">" with which the field begins. Let P 
be the number of places reserved. 


2. The character string expression is evaluated. Let S be 
the string resulting from the evaluation, and let N be 
the number of characters in S. 

3. If the field starts with "<", the field is copied from 


left to right. The "<" is replaced by the leftmost character 
of S; each "#" is replaced by the next cnaracter of S in 
sequence from left to right. If N > P, the excess N - P 
characters are dropped from the right end of S. If N < 
P, the last P - N character positions in tne field are 
replaced by blanks. Any literal character in the field 
is copied without change. 
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4. If the field starts with ">", the field is copied from 
right to left. The rightmost "#" in the field is replaced 
by the rightmost character of S; each "#" and the ">" are 
replaced by the next character of S in sequence from right 


to left. If N > P, the excess N - P characters are 
dropped from the left end of S. If N < P, the first P - 
N character positions are replaced by blanks. Literal 


characters in the field are copied without change. 


5. The value of the field is the string resulting from Step 
3 or Step 4. 


The following are some examples of string field evaluation (6b 
indicates a single blank): 


Field Internal Value External Form 
< Hat a a at aE at at alpha al phabbbs 

> Ra HE a EE beta bLEEKbeta 

> # Ft HHT tHE betab bKKBbetab © 
<## alpha alp 

>## alpha pha 

C1#2#S#UF alpha ali2p3h4a 


Printing Special Characters 

If the user wishes to print a literal copy of one of the 
eight characters with special meaning in format fields, he must 
use a string field and pass the character as part of the print 
list. For example, the following statement prints a period at 
the end of the sentence: 

100 print using "x is -###<", x, ".") 
If the statement had been written: 

100 print using "x is -###.", x 


~ the "," would be treated as part of the numeric field. 


Tg role 
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Print-Using Statement Examples 


The following examples illustrate the use of the print-using 
statement: 


100 print using f$, a, b, ce 


200 print using "-##.##", saqr(x); 
300 print using "<hits = -###", "#", h 


PRINT-FILE-USING STATEMENT 
Syntax: 


print #n: using f$ 
or 

print #n: using f$ ; 
or 

print #n: using f$, list 
or 

print #n: using f$, list ; 


where n is a file expression, f$ is a string expression, and list 
is a list of expressions separated by commas. 


Semantics: 


This variation of the print-using statement directs output to 
the terminal format file with file number n. If the file number. 
is 0, this form of the print-using statement is the same as the 
simpler form in which the file number is omitted. 


If the file number is nonzero, lines are written into the 
file starting at the current position of the file pointer. Each 
time a partial line is written into the file, the file pointer is 
updated to point to the character after the last character written. 


100 print #3: using "x is <###", a$ 
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RANDOMIZE STATEMENT 
Syntax: 

randomize 
Semantics: 

The randomize statement initializes the pseudorandom number 
generator (of the program containing the randomize statement) with 
a value derived from the Multics clock reading at the time the 
randomize statement is executed. If a program does not contain a 
randomize statement, the same sequence of pseudorandom numbers is 


generated each time the program is executed. The randomize statement 
affects only the program in which it occurs. 


100 randomize . 7 


READ STATEMENT 


Syntax: 

read list 
where list is a list of references separated by commas. 
semantics: 


The read statement causes values from the data pools, starting 
at the next. available values, to be assigned, in order, to the 
references in the list. Numeric references are assigned values 
from the numeric data pool, and string references are assigned 
values from the string data pool. The subscript expressions in 
an array reference in the read list are not evaluated until all 
references that precede it in the read list have been assigned 
values. . 


100 read x,f(x) 


120 read a$, b$, x(3) 
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READ-FILE STATEMENT 
syntax: 
read #n : list 


where n is a file expression and list is either a list of numeric 
references separated by commas or a list of string references 
separated by commas. 


semantics: 


This variation of the read statement reads from the random 
file with file number n. The type of file n must be the same as 
the type of the references in the list. The file number cannot 
be 0. 


The read-file statement reads values from the random file 
Starting with the data item pointed at by the file pointer. The 
file pointer is incremented by 1 after each data value is read. - 


100 read #3: v$(i),a$ 


110 read #4: a,b,c 


REM STATEMENT 
syntax: 
rem S$ 


where S is any sequence of ASCII characters that does not include 
the newline character. 


semantics: 
The string of characters following "rem" is ignored by the 

BASIC compiler. The rem statement has no effect when encountered 

during execution. | 

RESET STATEMENT 

Syntax: 


reset 
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Semantics: 


The reset statement reinitializes the data pools so that the 
next read statement executed reads the first data item in the 
appropriate pool. The reset statement resets both the numeric 
pool and the string pool. Only the program that contains the 
reset statement is affected. 


900 reset . 


- RESET-FILE STATEMENT 
Syntax: 


reset #n 
or — 
reset #n: m 


Where n is a file expression and m is a numeric expression. 
semantics: 


This variation of the reset statement resets the file pointer 
of the file with file number n. The file number cannot be 0. 


If the expression mis omitted, file number n must be a terminal 
format file; in this case, the file pointer is reset to the beginning 
of the file. If the expression m is present, file number n must 
be a random file; in this case, the file pointer is set to point 
at the data value whose position in the file is given by the 
integer part of m. 


100 reset #1 


120 reset #k: j-2 


RETURN STATEMENT 
Syntax: 
return 


Semantics: 
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The return statement causes control to return to the statement 
following the most recently executed gosub statement executed by 
the program that contains the return statement. 


SCRATCH STATEMENT 
Syntax: 
seratch #n 
where n is a file expression. 
The scratch statement erases the current contents, if any, of 
the file with file number n and positions the file pointer at the 


beginning of the file. The file can be of any kind; the file 
number must not be 0. 


100 seratch #k 


SETDIGITS STATEMENT 


syntax: 
setdigits n 
where n is a numeric expression. 


The setdigits statement specifies the number of digits to be 
printed by alli future print statements until another setdigits 
Statement is executed, or until the end of program execution. 
The value of n can be 1 through 19. This statement applies only 
to nonintegers. The tab spacing is adjusted to accomodate the 
current number length. However, the spacing is never less than 
the default. 


The setdigits statement takes effect only in double precision 
mode. 


| 110 setdigits k | 


5-37 AM82-01" 


STOP STATEMENT 
syntax: 

stop 
Semantics: 

The stop statement causes the program in which it occurs to 
return to its caller; any files opened by the program are closed. 
Executing a stop statement in a main program is equivalent to 


executing the end statement. Executing a stop statement in a 
subroutine program is equivalent to executing the subend statement. 


| 


SUB STATEMENT 


Syntax: 


sub s$ 
or 
sub s$ : list 


where s$ is a string constant and list is a list of parameter 
specifications. A parameter specification can be a scalar parameter, 
an array parameter, a function parameter, or a file parameter. 


semantics: 


The sub statement is the first statement ina subroutine program. 
The constant s$ gives the name of the subroutine being defined; 
it must consist of 32 or fewer characters. 


A subroutine can contain any BASIC statement except the end 
Statement. Subroutines cannot be nested; each sub statement must 
be paired with a subsequent subend statement. Any name or file 
“ number used in a subroutine that is not a parameter of the subroutine 
is local to the subroutine and has no connection with the same 
name or file number used in some other program or in a previous 
use of the same subroutine. Each program has its own pair of 
data pools and its own pseudorandom number generator, all of which 
are reset when the program is entered. 


The line numbers used in a program have no relationship to 
line numbers used in other programs. The line number of a sub 
Statement can be less than the line number of the preceding end 
statement or subend statement. 
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A subroutine can be entered only by means of a call statement 
that references the sub statement; a subroutine can be left only 
by means of a stop statement or the subend statement that terminates 
the subroutine body. It is not possible to jump into or out of a 
Subroutine. If certain errors are detected during the execution 
of a subroutine, execution of the subroutine is terminated and 
controi returns to the caller of the subroutine. 


Parameters 


When a subroutine is called, the items in the optional parameter 
list are associated with the items in the argument list in the 
call statement. Any reference to a parameter results ina reference 
to the corresponding argument. The number and type of the arguments 
provided must match the number-and type of the parameters expected. 


Four types of parameters can be received: scalars, arrays, 
functions, and files. 


SCALAR PARAMETERS 


A scalar parameter is a reference to a scalar variable. The 
value of the parameter at entry to the subroutine is the value of 
the corresponding argument. Any change to the parameter immediately 
causes a change to the corresponding argument. 


2Lare cy A ar 


ARRAY PARAMETERS 
An array parameter is written as 
b() 

for a vector and 
dG) 


for a matrix, where b is the name of the array. The number of 
dimensions of the parameter array must be the same as the number 
of dimensions of the argument array. The parameter array cannot 
be dimensioned in the subroutine with a dim statement; the parameter 
array uses the original and current bounds of the argument array. 
Any redimensioning of the parameter array immediately affects the 
argument array; any change to an element of the parameter array 
immediately affects the corresponding element of the argument array, 
(See Section 6 for the definition of redimensioning.) 
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FUNCTION PARAMETERS 


A function parameter consists of the name of a user-defined 
function. The type (numeric or string) implied by the name of 
the function parameter must agree with the type of the function 
argument. The number and type of arguments provided ina use of 
the funetion from inside the subroutine must agree with the number 
and type of parameters expected by the function. The function 
name cannot appear in a def statement inside the subroutine. If 
the function that was passed to the subroutine contains references 
to names that are not parameters or local variables of the function, 
these names refer to names in the program in which the function 
is defined. . 


FILE PARAMETERS 
A file parameter is written as 
#e 


where c is an integer constant. File number c in the subroutine 
is associated with the file passed as the argument in such a way 
that any change to the file from within the subroutine is preserved 
when control leaves the subroutine. All the characteristics of 
the file parameter are identical to the characteristics of the 
file argument. 


Sub Statement Examples 


The following examples of the sub statement match the examples 
of the call statement given earlier: 


"init" 
"y routine": 


"write": #2, 
"integrate": 
"calculate": 
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SUBEND STATEMENT 
syntax: 

subend 
semantics: 

The subend statement is the last statement in a subroutine 
program. When the subend statement is executed, the storage 
allocated for variables of the subroutine is released, all files 


opened by the subroutine are closed, and control returns to the 
caller of the subroutine. 


9000 subend 


TIME STATEMENT 


Syntax: 

time c 
where c is a positive numeric constant. 
Semantics: 

The time statement establishes a time limit of c seconds of 
Multics virtual processor time for the execution of the program 
in which it occurs; execution of the program is terminated if the 
limit is exceeded. Any number of time statements can appear anywhere 


in the program; the limit used is the smallest limit specified. 
A time statement has no effect when executed. 


10 time 3 


WRITE STATEMENT 
Syntax: 
write #n : list 
where n is a file expression and list is either a list of numeric 


expressions separated by commas or a list of string expressions 
separated by commas. 
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semantics: 


The write statement writes into the random file with file 
number n. The type of the file must be the same as the type of 
references in the list. The file number cannot be O. 


The write statement writes the values of the expressions in 
the list, in order, into the random file starting with the current 
position of the file pointer. The file pointer is incremented by 
1 after each value is written. 


200 write #3: x, a®¥b -c 


220 write #4: a$ 
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SECTION 6 


ARRAY STATEMENTS 


The BASIC statements discussed in Section 5 permit the elements 
of an array to be manipulated on an element by element basis. 
The mat statement described in this section allows arrays to be 
manipulated as single entities. 


All of the array statements deal with both vectors and matrices. 
When a matrix is used in an array input/output statement, elements 
are transmitted row by row. Normally the zeroth element of a 
vector and the zeroth row and zeroth column of a matrix are ignored 
by the array statements; however, in some cases (noted below) the 
values of these elements can be destroyed. 


ARRAY REDIMENSIONING 


The original and current bounds of an array are determined by 
a dim statement or by the default bounds values. The current 
bounds can be changed by the process known as redimensioning. 


Whenever an array receives as its value the contents of another 
array with different current bounds, the current bounds of the 
target array are automatically changed to be the same as the 
current bounds of the source array. When the current bounds of 
an array change, any elements of the array with one or more subscripts 
equal to 0 are destroyed. 


The total amount of storage implied by the current bounds 
must be less than or equal to the total amount of storage reserved 
by the original bounds. For example, amatrix originally dimensioned 
10 x 10 could be redimensioned 5 x 5, 4 x 20, or 30 x 2, but not 
Bx 25% 
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In some forms cf the mat statement the new value for the 
current bounds of an array can be explicitly stated by a bounds 
list of the form 


(bi) 
for a vector and 

(bi,b2) 
for a matrix. Both b1 and be are numeric expressions whose values 
are truncated to yield integer values for the new bounds. The 
bounds list is written pamec raves y after the name of an array or 


array constant. 


The following are all examples of valid bounds lists: 


(n) 
(n,n) 


(m,n) 
(m+2,m-2) 


ARRAY INITIALIZATION 


syntax 
mat a= con 
or 
mat b = idn 
or 
mat a = zer 
or 


mat a$ = nul$ 


where a is.a numeric array, b is a square numeric matrix, and a$ 
is a string array. 


semantics: 
These array initialization Statements set the array appearing 
to the left of the equal sign to a constant array having the same 


bounds. The names appearing to the right of the equal sign are 
called array constants. 
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The constant con is the array with all elements having the 
value 1. The constant idn is the square identity matrix I defined 
DY 


I¢i,j>} = Tif is 3 

Lia) S00 If ae <> 
Tne constant zer is the array with all elements having the value 
9. The constant nul$ is the string array in which all elements 
are the zero-length string. 

Note that while the other array constants can be used with 


either vectors or matrices, the array constant idn can only be 
used with a matrix having an equal number of rows and columns. 


200 mat v = con 
300 mat z$ = nul$ 


ARRAY INITIALIZATION WITH REDIMENSIONING 
syntax: 


mat a = con bounds 

mat b = idn bounds 
or 

mat a= zer bounds 
or 

mat a$ = nul$ bounds 


where a is a numeric array, b is a square numeric matrix, a$ is a 
string array, and bounds is a bounds list. 


Semantics: 
These array initialization statements set the array appearing 
to the left of the equal sign to a constant array having the 


bounds specified by the bounds list. When the idn constant is 
used in this manner, the two bounds expressions must be equal. 
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mat a = con(4) 
mat a$ = nul$(n,m) 
mat b idn(p,p) 


mat c = zer(m-1,n+1) 


mat d eon(5,5) 


ARRAY ASSIGNMENT 
Syntax: | 
mat a = b 


where a and b are either both vectors of the same type or both 
matrices of the same type. 


pemantics: 


The array assignment statement sets the array appearing to 
the left of the equal sign to the value of the array appearing to 
the right of the equal sign. Both arrays must be of the same 
type and must have the same number of dimensions. The current 
bounds of the target array are changed to the current bounds of 
the source array. 


100 mat x = y 


120 mat x$ = y$ 


ARRAY ADDITION 
Syntax: 
mat a=b+e+e 


where a, b, and ec are either all numeric vectors or all numeric 
matrices. | 


Semantics: | 


The array addition statement sets the elements of the array 
appearing to the left of the equal sign to the sum of the corresponding 
elements of the two arrays appearing to the right of the equal 
Sign. All of the arrays must have the same number of dimensions; 
the two input arrays must have the same current bounds. The 
current bounds of the target array are changed to the current 
bounds of the source arrays. 
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: 100 mat x = y+y 


ARRAY SUBTRACTION 


Syntax: 
mat a=b-e 


where a, b, and c are either all.numeric vectors or all numeric 
matrices. 


Semantics: 

The array subtraction statement sets the elements of the array 
appearing to the left of the equal sign to the difference of the 
corresponding elements of the two arrays appearing to the right 
of the equal sign. All of the arrays must have the same number 
of dimensions; the two input arrays must have the same current 


bounds. The current bounds of the target array are changed to 
the current bounds of the source arrays. 


140 mat x = y - z 
eee | 


ARRAY MULTIPLICATION 


There are three kinds of array multiplication as follows: 


Scalar Multiplication 
Syntax: 
mat a=(e) #*»b 


where a and b are either both numeric vectors or both numeric 
matrices and e is a numeric expression. 
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semantics: 


This form of the array multiplication statement sets the elements 
of the array appearing to the left of the equal sign to the value 
of the corresponding elements of the array appearing to the right 
of the equal sign with each element multiplied by the value of 
the numeric expression. The two arrays must have the same number 
of dimensions; the current bounds of the target array are changed 

to the current bounds of the source array. 


300 mat a (5) * b 


320 mat b (sqr(1-x/y))*#b 


Inner Product 
Syntax: 
mat v z-a#ob 


where v is: a numeric scalar reference and a and b are numeric 
vectors. 


Semantics: 
This form of the array multiplication statement assigns the 


inner or dot product of two vectors to a scalar reference. The 
two vectors being multiplied must have the same number of elements. 


100 mat x(i+j) 


100 mat az=b#e 


Outer Product 


Syntax: 
mat a=b*#® x 
or 
mat a = x * b 
or 


mat x = y * Zz 


where a and b are numeric vectors and x, y, and z are numeric 
matrices. 
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semantics: 


This form of the array multiplication statement sets the array 
appearing to the left of the equal sign to the outer product of 
the arrays appearing to the right of the equal sign. The arrays 
must satisfy the normal rules for matrix multiplication: when 
two arrays are multiplied, the number of columns in the first 
array must equal the number of rows in the second array; the 
result is an array with the same number of rows as the first 
array and the same number of columns as the second array. 


When a vector containing N elements is multiplied by a matrix 
dimensioned N x P, the vector is treated as a row vector and the 
result is a vector with P elements. When a matrix dimensioned M 
x N is multiplied by a vector containing N elements, the vector 
is treated as a column vector and the result is a vector with M 
elements. When a matrix dimensioned M x N is multiplied by a 
matrix dimensioned N x P, the result is a matrix dimensioned M x 
Po, 


The number of dimensions of the target array must be the same 
as the number of dimensions of the array resulting from the 
multiplication. The current bounds of the target array are changed 
to those of the result array. 


TRANSPOSE FUNCTION 
Syntax: 
mat a = trn(b) 


where a and b are either both numeric vectors or both numeric 
matrices. 


Semantics: 


The array transpose statement sets the array appearing to the 
left of the equal sign to the transpose of the array appearing to 
the right of the equal sign. The rows (columns) of the target 
array are the columns (rows) of the source array. The target 
array must have the same number of dimensions as the source array. 
Tne current bounds of the target array are changed; if the source 
array is dimensioned M x N, the current bounds of the target 
array are changed to N x M. The transpose of a vector is the 
vector itself. 
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trn(b) 


trn(c) 


INVERSE FUNCTION 
Syntax: 

mat a = inv(b) 
where a is a numeric matrix and.b is a square numeric matrix. 
Semantics: 

The matrix inverse statement sets the matrix appearing to the 
left of the equal sign to the inverse of the square matrix appearing 
to the right of the equal sign. The current bounds of the target 
matrix are changed to the current bounds of the source matrix. 

The numeric function det (see Section 3) returns the determinant 
of the matrix inverted by the last matrix inverse statement to be 
executed in the same program. The user must determine for himself 
if the determinant is large enough for the inverse to be meaningful. 

If the matrix being inverted is singular, the determinant is 


set to 0 and execution continues without any error message being 
printed. In this case, the value of the target matrix is undefined. 


100 mat a inv(b) 


200 mat ec inv(c) 
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MAT INPUT STATEMENT 
Syntax: 


mat input list 
or 
mat input list , 


where list is a list of array names separated by commas. Each 
array name can be optionally followed by a bounds list. 


Semantics: 


The mat-input statement causes data values to be read from 
the user's terminal and assigned, in order, to the elements of 
the arrays in the input list. The type of data provided must 
match the type of array being filled. The format of permissible 
data values, the error conditions, and the prompts used are the 
Same as in the input statement. 


In general, enough data values are read from the terminal to 
completely fill an array according to the current bounds of the 
array. If an array name in the input list is followed by a 
bounds list, the array is redimensioned with the specified bounds 
before any input values are read. If more input values are provided 
than are required to fill an array, the excess values are stored 
in the next array in the list or are ignored if there are no more 
arrays in the input list. If the input list ends with a comma, 
any data values that remain after all arrays have been filled are 


oe oe 


The data items provided by the user must match the type of 
the corresponding array element. If the data types do not match 
Or there is any other error, a message is printed and the incorrect 
data value and all values following it must be retyped. 


If the last array in the input list is a vector that is not 
followed by a bounds list, an arbitrary number of data values, 
from no elements to the maximum number of elements that can be 
-held by the vector, can be provided by the user. In this case, 
the vector is automatically redimensioned to the number of data 
values provided. 


If ail of the data values to be input do not fit on a single 
line, the user can end the input line with an ampersand (&), in 
which case BASIC requests another line of input. Any number of 


by a comma. If an arbitrary number of values is being read as 
described above, input is terminated by the first line that does 
not end in an ampersand. If a string value is to end in an 
ampersand, it must be enclosed in quotes. 
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Oo 
{ 
\O 


The numeric function num (see Section 3) gives the number of 
data values placed in the last array by the last mat-input statement 
executed. 


100 mat input a 

200 mat input b(n,m),c(3,4) 
300 mat input a$ 

400 mat input a$(k) 


MAT INPUT FILE STATEMENT 
Syntax:. 


mat input # n : list 
or 
mat input # on: list , 


where n is a file expression and list is a list of array names 
separated by commas. Each array name can be optionally followed 
by a bounds list. . 


Semantics: 


This variation of the mat-input statement requests input from 
the terminal format file with file number n. If the file number 
is 0, this form of the mat-input statement is the same as the 
Simpler form in which the file number is omitted. 


If the file number is nonzero, as many lines as are necessary 
to satisfy the input list are read from the specified file starting 
at the current value of the file pointer. No prompting messages 
are printed. Any erroneous input or an attempt to read past the 
end of the file causes a message to be printed, after which execution 
of the program containing the mat-input statement is terminated. 


After each data value in the file has been processed, the 
' file pointer is advanced to the. character after the comma or 
newline that delimited the data value. 


100 mat input #3: a,b(n) 


200 mat input #m: b$(j,k) ~ 
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MAT LINPUT STATEMENT 
Syntax: 
mat linput list 


where list is a list of string array names separated by commas. 
Each array name can be optionally followed by a bounds list. 


Semantics: 


The mat-linput statement causes successive lines of input from 
the terminal to become the values of the elements of the string 
arrays in the linput list. Each element gets set to a string 
value consisting of all the characters in a line of input. except 
for the newline character that terminates the line. 


Each time a string value is required, a prompt is printed and 
an entire line is read and used for the string value. If the 
last input- or mat-input statement ended in a comma and there is 
a partial line left, the initial prompt is omitted and the partial 
line is used as the first string value. 


Enough lines are read to completely fill an array according 
to the current bounds of the array. If an array name in the 
linput list is followed by a bounds list, the array is redimensioned 
with the specified bounds before any lines are read. It is not 
possible to input an arbitrary number of lines. 


| 175 mat linput a$,b$ 


MAT LINPUT FILE STATEMENT 


Syntax: 

mat linput # n : list 
where n is a file expression and list is a list of string array 
names separated by commas. Each array name can be optionally 
followed by a bounds list. 
Semantics: 

This variation of the mat-linput statement requests lines of 
input from the terminal format file with file number n. If the 


file number is zero, this form of the linput statement is the 
Same as the simpler form in which the file number is omitted. 
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If the file number is nonzero, as many lines as are necessary 
to satisfy the linput list are read from the specified file starting 
at the current value of the file pointer. If a previous input- 
or mat-input statement referencing the same file ended in a comma 
and there is any partial input line left, the value of the first 
array element is set to the partial line. The file pointer is 
left pointing at the character after the newline of the last line 
read from the file. 


| 300 mat linput #4: a$(n) | 


MAT PRINT STATEMENT 
Syntax: 


mat print list 
or 

mat print list , 
or 

mat print list ; 


where listis alist of array names separated by commas or semicolons. 
Semantics: 


The mat-print statement causes all the elements of an array 
with subscripts that are not 0 to be printed row by row. If a 
vector is not followed by a comma or a semicolon (i.e., it is the 
last array in the print list), it is printed as a column vector 
with one element per line; otherwise, it is printed as a row 
vector. 


If an array name is followed by a semicolon, elements are 
printed without intervening spaces; otherwise, elements are printed 
in the normal 15-column zones. Each row of the array begins on a 
new line of output and extends over as many lines as are necessary. 
A blank line is printed between each array. 


The rules used for formatting individual array elements and 


for terminating partial output lines are the same as for the 
print statement. 


100 mat print a,b; 


110 mat print d$, 
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MAT PRINT FILE STATEMENT 
Syntax: 


mat print # n: list 
or 

mat print #n: list , 
or 

mat print #n: list ; 


where n is a file expression and list is a list of array names 
separated by commas or semicolons. 


semantics: 


This variation of the mat-print statement directs output to 
the terminal format file with file number n. If the file number 
is 0, this form of the mat-print statement is the same as the 
Simpler form in which the file number is omitted. 


If the file number is nonzero, lines are written into the 
file starting at the current position of the file pointer. Each 


time a line is written into the file, the file pointer is updated 
to point to the character after the last character written. 


100 mat print #6: a,b; ~ 


MAT PRINT USING STATEMENT 


Syntax: 
mat print using f$, list 


where f$ is a string expression and list is a list of array names 
separated by commas. 


Semantics: 


The mat-print-using statement causes all the elements of an 
array with subscripts that are not 0 to be printed row by row 
according to the specified format string. The allowable format 
Strings and the rules for their interpretation are the same as 
for the print-using statement. 


The format string is scanned from the beginning for each row 
of the array. Each row of the array starts a new iine of output. 
If the format string is exhausted before a row is complete, it is 
rescanned from the beginning. All vectors are printed as row 
vectors. 
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100 mat print using "-# -# -#", a 


200 mat print using f$, a$,b 


MAT PRINT USING FILE STATEMENT 


mat print #n : using f$, list 


where n is a file expression, f$ is a string expression, and list 
is a list of array names separated by commas. 


Semantics: 


This variation of the mat-print-using statement directs output 
to the terminal format file with file number n. If the file 
number is zero, this form of the mat-print-using statement is the 
same as the simpler form in which the file number is omitted. 


If the file number is nonzero, lines are written into the 
file starting at the current position of the file pointer. Each 
time a line is written into the file, the file pointer is updated 
to point to the character after the last character written. 


100 mat print #2: using g$, a,b 


MAT READ STATEMENT 
Syntax: 
mat read list 


where list is a list of array names separated by commas. Each 
array name can be optionally followed by a bounds list. 


Semantics: 


The mat-read statement causes values from the data pools, 
Starting at the next available values, to be assigned, in order, 
to the elements of the arrays in the read list. Numeric arrays 
are assigned values from the numeric data pool and string arrays 
are assigned values from the string data pool. : 
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Enough data values are read from the appropriate data pool to 
completely fill an array according to the current bounds of the 
array. If an array name in the read list is followed by a bounds 
list, the array is redimensioned with the specified bounds before 
any data values are read. 


100 mat read a$,b 


200 mat read ec(n,m) 


MAT READ FILE STATEMENT 
syntax: 
mat read #n: list 
where n is a file expression and list is either a list of numeric 
array names separated by commas or a list of string array names 


separated by commas. Each array name can be optionally followed 
by a bounds list. 
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semantics: 


This variation of the mat-read statement reads from the random 
file with file number n. The type of file n must be the same as 
the type of the arrays in the list. The file number cannot be 0. 


The mat-read-file statement reads values from the random file 
starting with the data item pointed at by the file pointer. The 
file pointer is incremented by 1 after each data value is read. 


100 mat read #3: a$,b$(n) 


200 mat read #m: a,b,c(k,k) 


MAT WRITE FILE STATEMENT 
Syntax: 
mat write #n : list 


where n is a file expression and list is either a list of numeric 
array names separated by commas or a list of string array names 
separated by commas. 


Semantics: 


The mat-write-file statement causes ali of the elements of an 
array with subscripts that are not 0 to be «wsritten into the random 
file with file number n. The type of file n must be the same as 
the type of the arrays in the list. The file number cannot be 0. 


The mat-write-file statement writes values into the random 
file starting with the current position of the file pointer. The 
file pointer is incremented by 1 after each data value is written. 


100 mat write #3: a,b 


200 mat write #4: c$ 
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SECTION 7 


SAMPLE PROGRAMS 


This section discusses a number of sample programs that 
illustrate various features of BASIC. All of these programs have 
been executed on Multics. 


EXAMPLE 1 


This program prints a report giving the gasoline mileage for 
a series of trips. It illustrates how data can be contained in 
the program body, how simple computations can be performed, and 
how the standard print formats are used. 


Line 110 prints a heading for the report. Since the strings 
are separated by commas, they are printed in the standard zones 


of 15 columns. 


Line 120 reads the starting odometer value. The data values 
are provided in data statements located in the program body. The 
first numeric value read comes from line 260. Since the dates in 
lines 270 to 330 start with a number, quotes are required. All 
of the data statements are skipped after line 250 is executed. 


The main part of the program is contained in lines 140 to 
240. An odometer value is read; if it is 0 the loop is terminated. 
If the odometer value is not 0, a date string and the amount of 
gasoline used are read. Note that the order of string data values 
is independent of the numeric data values. The first time line 
190 is executed, variable mi has its initial value of 90. Line 
210 prints the statistics for a single trip. 


Line 250 prints the total mileage, gasoline used, and average 


miles per gallon. Two consecutive commas cause a zone to be 
skipped. 
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Here is the program for example 1: 


rem Total Miles Per Gallon 
print "Date", "Odometer", "Trip", "Gallons", " 


let a= 
print d$,n,m,g,a 
n 


let k = 

let gl = gi+g 

goto 140 

ig al a 
ata 

data "1/10/73", 3553, 14.8 

data "1/17/73", 3801, 17.4 

data "1/20/73", 3926, 7.2 

data "1/27/73", 4091, 11.3 

data "2/3/73", 4275, 10.9 

data "2/9/73", 4460, 9.8 

spa ee 4664, 12.3 
ata 

end 


Here is the output for example 1: 


Date Odometer Trip Gallons MPG 
1/10/73 3553 221 14.8 14.9324 
117/73 3801 248 17.4 14,2529 
1/20/73 3926 125 t.2 17.3611 
1/27/73 4091 165 115.3 14.6018 
2/3/73 4275 184 10.9 16.8807 
2/9/73 4460 185 9.8 18.8776 
2/15/73 4664 204 1263 16.5854 
TOTAL 1332 83.7 15.914 
EXAMPLE 2 


This is the program of example 1 modified so that data is 
read from a file instead of from data statements in the program 
body. This change permits the program to be more conveniently 
used by a number of people; each user only has to prepare an 
input file. 
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Line 110 associates the file name "gas data" with file number 
1. Line 150 checks to see if the end of the input file has been 
reached; execution continues with line 160 if there are more data 
in the file. The order of the references read in line 160 must 
correspond to the types of data in the ‘input file. Quotes are 
not required around the dates in the input file because the BASIC 
runtime system knows that strings are required. 


The output format has been improved in example 2. The default 
format used in example 1 printed the gasoline mileage with four 
fractional places. The function defined in line 250 returns the 
value of its input parameter rounded to one decimal place; this 
function is used to control the output format in lines 140 and 
240. Note that the function body is ignored when line 250 is 
encountered after line 240. 


Here is the program for example 2: 


rem Total Miles Per Gallon 

file #1: “gas data" 

input #1: k 

let k1 = k 

print "Date", "Odometer", "Trip", "Gallons", " 
if end #1 then 240 

input #1: d$,n,g 

let m=n-k 

let mi = mil +m 

let a = m/g 

print d$,n,m,g,fnr(a) 

let k =n 

let g1= gi+g 

goto 150 

print "TOTAL", ,m1,g1,fnr((k-k1)/g1) 
def fnr(x) = int(x#10 + .5)/10 

end 


Here is the input data file for example 2: 


332... 

1/10/73, 3553, 14.8 
1/17/73, 3801, 17.4 
1/20/73, 3926, 7.2 
1/27/73, 4091, 11.3 
2/3/73, 4275, 10.9 
2/9/73, 4460, 9.8 
2/15/73, 4664, 12.3 
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Here is the output for example 2: 


Date | Odometer Trip Gallons MPG 
1/10/73 3553 221 14.8 14.9 
1/17/73 3801 248 17.4 14.3 
1/20/73 3926 125 ee 17.4 
1/27/73 4091 165 11.3 14.6 
2/3/73 4275 184 10.9 16.9 
2/9/73 4460 185 9.8 18.9 
2/15/73 4664 — 204 12.3 16.6 
TOTAL ; 1332 83.7 15.9 
EXAMPLE 3 


This is the program of example 2 modified to use the 
print-using statement. Lines 200 and 240 contain "pictures" of 
the desired output format. The print-using statement permits the 
fields to be printed closer together and allows decimal points to 
be lined up. 


Here is the program for example 3: 


100 rem Total Miles Per Gallon 

110 file #1: "gas data" 

120 input #1: k 

130 let k1 =k. 

140 f£1$]="<##tttt -#HFEE -##F Ht. # ~##.#",d$,n,m,g, 
150 f2$="TOTAL -#ttt -## .# et 2 ae mig, (k- K1)/g1 
160 print "Date Odometer Trip Gallons Miles / Gallon" 
170 if end #1 then 240 

180 input #1: d$,n,g 

190 let m=n-k 

200 let mi = m1 +m 

210 let a = m/g 

220 print using f1$ 

230 let k =n 

240 let g1= g1+g 

250 goto 150 

260 print using f2$ 

270 end 
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Here is the output from example 3 using the input file from 
example 2: 


Date Odometer Trip Gallons Miles / Gallon 


1/10/73 3553 221 14.8 14.9 
1/17/73, 3801. 248s 14.3 
1/20/73, 3926-125 7.2 17.4 
1/27/73 4091 165 11.3 14.6 
2/3713 4275 184 10.9 16.9 
2/9/73 4460 185 9.8 18.9 
2/15/73, 4664 = 204 12.3 16.6 
TOTAL 1332 83.7 15.9 
EXAMPLE 4 


This program shows how the gosub- and return statements can 
be used to execute a block of statements from several points in 
the program. Lines 120 to 170 evaluate the greatest common divisor 
of three integers by using the relationship 


gcd(x,y,z) = ged(ged(x,y),z) 


Lines 230 to 300 evaluate the greatest common divisor of two 
integers using the Euclidian aligorithm. Note that it is possible 
to transfer control to a rem statement and that the same statement 
ean be the target of both goto- and gosub statements. The first 
time line 300 is executed, control returns to line 150; the second 
time line 300 is executed, control returns to line 180. The 
message 


Out of data in 110 


is printed and program execution is terminated when all the data 
values have been read. 
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Here is the program for example 4: 


print wat, MB, mcr. "GCD" 
read a,b,c 

let x = 
let y = 
gosub 23 
let x = 
let y = 
gosub 23 
print a 
goto 110 
data 6,9,12 

data 38456, 64872, 98765 
data 32, 384, T2 

rem 

let r = mod(x,y) 

if r = 0 then 290 

let x = y 

let y=r 

goto 230 

let g=y 

return 

end 


a 
b 
0 
g 
Cc 
0 
;b,c 


& 


Here is the output from example 4: 


A B C CCD 
6 9 12 3 
38456 64872 98765 1 
32 384 T2 8 


Out. of data in 110 


EXAMPLE 5 


This is the program of example 4 modified to compute the 
greatest common divisor of two integers by means of a multiple 
line function. The function is defined in lines 150 to 220. 
Variable r is local to the function body. The assignments to x 
and y in lines 180 and 190 do not alter the values of the function 
arguments. 
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Here is the program for example 5: 


100 print TAY Lp = aa CN, "n"GcD" 
110 read a,b,c 

120 print a,b,c,fng(fng(a,b),c) 
130 goto 110 

140 rem 

150 def fng(x,y)r 

160 let r = mod(x,y) 

170 if r = 0 then 210 

180 let x = y 

190 let y=r 

200 goto 160 

210 let fng = y 

220 fnend 

230 data 6,9,12 

240 data 38456, 64872, 98765 
250 data 32, 384, 72 

260 end 


Here is the output of example 5: 


A B C GCD 
6 9 : le | 3 
38456 64872 98765 1 
a2 384 T2 8 


Out of data in 110 


EXAMPLE 6 


This program illustrates the use of a recursive function. 
The relations 


f(0) = 1 f(n) =n *® f(n-1) 


are used to define the factorial function. The use of fnf to the 
left of the equal sign in line 180 is a reference to the function 
value; the use of fnf to the right of the equal sign in line 180 
is an invocation of the function. 


Line 100 prints the message "n = " without a newline character 
so that the message, the input prompt, and the reply can all 
appear on the same line of output. Line 120 prints the three 
values with no extra intervening spaces. (One space is automatically 
put at the end of the value.) The program repeatedly requests a 
value of n from the user. A message is printed and execution is 
terminated when the user responds "stop" to the input prompt. 
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Here is the program for example 6: 


print "n = "; 

input n 

print n;"  =";fnf(n) 
goto 100 

def fnf(x) 


if x <> 0 then 180 

let fnf = 1 

goto 190 

let fnf = x * fnf(x-1) 
fnend 

end 


Here is the output for example 6: 


n=? 10 

10 = 3628800 
n= 2-15 
15 = 1.30767 E+12 
n = ? stop 
Program halted in 110 


EXAMPLE 7 


This program uses the array processing capabilities of BASIC 
to compute the total dollar value of three products sold by five 
salesmen. Vector element p(m) is the price of the mth product. 
Matrix element p(m,n) is the total number of the mth product sold 
by the nth salesman. 


Line 110 reads three values into the p vector; line 120 reads 
15 values into the s matrix. Since neither array was redimensioned, 
the current bounds are the same as the original bounds. Lines 
130 to 190 compute and print the total sales for each salesman. 
The dollar sign in the numeric field in line 180 floats up against 
the leftmost digit printed in the field. 


7-8 AM82-01 


Here is the program for example 7: 


S(3,5) 7P\32 


s + p(m) * s(m,n) 


print using "Total sales for salesman-# $-### .##", n, s 
next n 

data 1.25, 4.30, 2.50 

data 40, 20, 2, 29, 42 

data 10, 16, 3, 21, 8 

data 35, 47, 29, 16, 33 

end 


Here is the output from example 7: 


Total sales for salesman 


1 $180.50 
Total sales for salesman 2 $211.30 
Total sales for salesman 3 $87.90 
Total sales for salesman 4 $166.55 
Total sales for salesman 5 $169.40 


EXAMPLE 8 


This is the program of example 7 modified to handle an arbitrary 
number of products and an arbitrary number of salesmen. Input 
now comes from a file whose name is requested in line 110. The 
first two values in the file are the number of products and the 
number of salesmen, which are read in line 140. The product 
vector and sales matrix are redimensioned with the appropriate 
bounds in the input-statment in line 150. The total sales vector 
t is generated by a matrix multiplication operation in line 160. 
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Here is the program for example 8: 


dim s(20,50), p(20), t(50) 
print "Data file name"; 
input f$ 

file #1: f$ 

input #1: p,s 


mat input #1: p(p), s(p,s) 

mat t=p #*s 

for n= 1 tos 

print using "Total sales for salesman-# $-###.##",n,t(n) 
next n ; 

end 


Here is the data file (named sales data) for example 8: 


345°9 

1.25, 4.30, 2.50 
40, 20, 2, 29, 42 
10: 16.¢ 3.245, 6 
35, 47, 29, 16, 33 


Here is the output for example 8: 


Data file name? sales data 
Total sales for salesman 1 $180.50 


Total sales for salesman 2 $211.30 
Total sales for salesman 3 $87.90 
Total sales for salesman 4 $166.55 
Total sales for salesman 5 $169.40 


EXAMPLE 9 ~ 


This program generates random sentences. It is given a list 
of word keys, a set of sentence patterns that use these keys to 
encode a sentence, and sets of words of given word types. It 
picks a sentence pattern at random and picks a word at random 
from each word class to make up the sentence. 


Line 100 causes a different sequence of pseudorandom numbers 
to be generated each time the program is run. | 
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Lines 170 to 240 read in the file "parts list". Each line of 
the parts list file consists of a single character key and the 
name of a file containing words of that type. Line 190 reads the 
character key into the next element of the p$ vector and gets the 
file name associated with it. The entire file of words of the 
specified type is then read into the columns of the next row of 
the w$ matrix. Note that the same file number is used for each 
words file; each time line 200 is executed, the file previously 
assigned to the file number is closed. 


Lines 300 to 330 read the sentence patterns from the 
"sentence list" file. Line 380 picks a pattern at random from 
the vector of saved patterns. The pattern is printed by line 
390. Line 450 initializes the sentence to the null string. 


Lines 460 to 520 inspect each character of the chosen pattern. 
If the next character from the pattern matches one of the keys, 
control goes to line 580. The pattern is incorrect if the character 
matches none of the keys. 


Lines 580 to 610 pick a word at random from the class of 
words corresponding to the key. Up to five tries are made to 
avoid putting the same word in the sentence more than once. Line 
650 appends the new word to the sentence and follows it by a 
blank. The sentence gets printed by line 670. 
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Here is the program for example 9: 


randomize 


120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 


480 


490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 


read in parts list, format of each line is 
k,file | 

where k is a 1 character key and file is the 

name of a file of words corresponding to the key. 


- < = —-— = - 


file #1: “parts list" 
let p=p+i1. 
input #1: p$(p), a$ 
file #2: a$ ; 
linput #2: w$(p,w(p)) 
let w(p) = w(p) + 1 
if more #2 then 210 
if more #1 then 180 


at this point, the keys are in the p$ array and 
all the words of type i are in w$(i,1) ... w$(i,w(i)) 
now read in list of sentence patterns 


—-— 2. 2s ss 


file #1: "sentence list" 
linput #1: s$(s) 

let s=s+ 1 

if more #1 then 310 


this main loop, pick sentence pattern at random 
and print pattern at start of line 


Ce ee | 


let s$ = s$(int(s*rnd)) 
print s$;":";tab(10); 


initialize sentence string; replace each key 
character in the pattern by a word chosen at 
random from list of words of given type 


—=_— 2s s&s = 


let x$ =" 
for i= 1 to len(s$) 
let a$ = seg$(s$,i,i) 
for j = to p 
if a$ = p$(j) then 580 
next j | 
print "Illegal sentence pattern." 
goto 380 


this is word type j, pick word from class j 
at random try (up to 5 times) to avoid putting same 
word in sentence more than once 


Ce ee 


for t = 1to 5 © 
let b$ = w$(j,w(j)*rnd) | 
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600 if pos(x$,b$,1) = O then 650 
610 next t 
620 ' : 
630 ' add word to sentence 
| 


let x$ = x$ & b$§ & " 
next i 
print x$ 


goto 380 
dim w$(20,100) ,w(20),s$(40) ,p(20) 
end 


Here is the parts list file for example 9: 


n,noun list 
d,adjective list 
v,transitive verb list 
r,article list 

b,adverb_ list 

p,pronoun list 

x,aux list 
t,preposition list 
w,intransitive verb list 
i,interjection list 


Here is the first part of the sentence list file: 


rnixd 
rnixrn 
rnixrdn 
bpvrn 
brnvrn 
pbvrn 
pbyrn 
pbwtrn 
pvb 
pyrn 
Ppwb 
pwtrn 
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Here are some of the sentences that were generated: 


pwb: he swims swiftly 

pyrn: it finds a paper 

pwtrn: it goes near the boy 

pyrn: it produces the computer 

pbvrn: he quickly obtains the policeman 
rnixd: the refrigerator , as I said before, is white 
pwtrn: she walks far from the home 
pxtrn: it was far from the fireman 
pvrn: he gets the fork 

pbvrn: she busily eats the tomato 
pbvrn: she busily loses a bottle 

rdnwb: the short fish swims slowly 


rdnvrn: a dumb fireman avoids the secretary 
bpvrn: happily he gets the manager 


pwtrn: he runs around the fish 

pwb: he walks happily 

pwtrn: he goes to a manager 

Ppwb: she walks happily 

pbvyrn;: he busily writes a woman 

pxd: he was full 

pxd: he will be sad 

pvrn: she writes a boy 

pyrn: he avoids the fork 

pxtrn: she is far from the tree 

pyrn: he obtains the book 
EXAMPLE 10 


This program shows how a BASIC program can be called by the 
Multics command processor. The program converts a terminal format 
file into a random string file where each line of the input file 
becomes an entry in the output file. . 


Line 100 obtains the number of command arguments of the program. 
A message is printed and execution stops if less than two arguments 
are provided. 


Lines 140 to 170 wet the value that is used for the random 
file margin. If only two arguments are given, a default margin 
of 32 is used. If three (or more) arguments are present, the 
third argument is obtained and converted to a numeric value by 
line 170. 


Lines 180 and 190 get the names of the input and output files. 
An error message is printed if the names are the same. 


The real work of the program is done in lines 230 to 300. 
Line 250 erases any previous contents of the output file. Line 
260 sets the margin on the output file. Line 280 reads an entire 


line from the cutput file; line 290 wri 


output file. 
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Here is the program for example 10: 


100 let n = ent 

110 if n >= 2 then 140 
120 print "Not enough arguments supplied." 
130 stop 

140 if n >= 3 then 170 
150. Let-m =. 32 

160 goto 180 

170 let m = val(arg$(3)) 
180 let a$ = arg$(1) 

190 let b$ = arg$(2) 

200 if a$ <> b$ then 230 
210 print "Cannot use same name as infile & outfile" 
220 stop 

230 file #1: a$ 

240 file #2: b$ 

250 seratch #2 

260 margin #2: m 

270 if end #1 then 310 
280 linput #1: e$ 

290 write #2: c$ 

300 goto 270 

310 end 


EXAMPLE 11 

This is the sentence generator of example 9 modified to pick 
words at random from a set of random access files. The program 
of example 10 is used to convert the terminal format word files 
used by example 9 into the random string files used by this example. 


Lines 140 to 180 read in the sentence keys and the associated 
random file names. Instead of storing the keys in a vector, this 
program forms a string consisting of all the character keys 
concatenated together. Lines 220 to 250 read in the sentence 
list. 


7-15 AM82-01 


Line 290 generates a random sentence pattern that is processed 
by lines 340 to 540. Line 350 checks if the next character in 
the pattern is one of the keys that are recognized. Control goes 
to line 420 if the character is valid. 


Line 420 opens the file whose name is associated with the 
current word key. Line 440 generates an integer k that ranges 
from 0 to N-1 where N is the length of the file. Line 450 positions 
the file pointer so that line 460 reads the selected word. As in 
example 9, five tries are made to pick a word that does not 
already occur in the sentence. 


This program can deal with a much larger vocabulary than the 
program of example 9 because it.has to store only the word it is 
using rather than all the words it can ever use. However, for 
small word files, the program of example 9 runs faster. 
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Here is the program for example 11: 


randomize 


read in parts list 


file #1: "parts file" 
let p = p + 1 

input #1: x$, f$(p) 
let p$ = p$ & x$ 

if more #1 then 150 


read in sentence patterns 
file #1: "sentence list" 
linput #1: s$(s) 
let s=s + 1 
if more #1 then 230 

pick random pattern 


let s$ = s$(int(s¥rnd) ) 
let x$ =" 


process each word type in pattern 


340 for i= 1 to len(s$) 

350 let j = pos(p$,seg$(s$,i,i),1) 
360 if j <> 0 then 420 

210 print "Illegal sentence pattern ";s$ 
aoG goto 290 

400 ' pick word at random from file j 

EQ. + 

420 file #1: f$(j) 

430 fort. = 1-te 5 

HUO let k = int(lof(#1) * rnd) 
450 reset #1: k 

460 read #1: b$ 

47Q if pos(x$,b$,1) = 0 then 520 
480 next t 

490 ! 

500 ' add word to sentence 

510 ! 

520 let x$ = x$ & b$ & " " 

530 next i 

546 print x$ 

550 goto 290 

560 dim s$(50) 

570 end 
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Here are some sentences that were generated: 


she was tall 

a sad tall toy travels dumbly 

the dog happily shakes the waiter 
the crowded small car runs slowly 
the secretary is near the desk 

he writes a letter 


EXAMPLE 12. 


This program is a "desk calculator" that evaluates simple 
expressions consisting of constants, BASIC operators, and BASIC 
functions. It does this by turning the expression into a small 
BASIC program to print the value of the expression; the BASIC 
compiler is then called to compile and execute the small program. 


Line 100 defines the name of the intermediate BASIC source 
file. Line 110 requests that an expression be provided; a response 
of "stop" causes the calculator to stop. Line 140 calls subprogram 
"write" to write the expression into the file; this organization 
takes advantage of the fact that a file opened by a Subprogram is 
closed when the subprogram returns. Line 150 calls the BASIC 
compiler, located in a separate segment, to compile and execute 
the program in the temporary file. 


Here is the "calculator" 


let b$ = "TEMP.basic" 
print "Input expression"; 
linput a$ 

if a$ = "stop" then 170 
call "write": a$, b$ 

call "basic": b$ 

goto 110 


end . 
sub "write": f£$, gf 
file #1: g$ 
seratch #1 
print #1: "100 print ";f$ 
print #1: "200 end" 
subend 


7-18 AM82-01 


Here are some expressions it evaluated: 


Input expression? sin(.47)*2 + cos(.47)%*2 
1 
Input expression? 1-sin(.33)*sqr(.731e12) 
-277051 
Input expression? 14+24+3+44+5+6+7+8+9;sqr(25);0 
45 5 0 
Input expression? stop 
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APPENDIX A 


ASCII CHARACTER SET 


ASC 
Octal Decimal Function 
Graphic Value Value Abbrev Comments 

0 0 nul Null 

1 1 soh Start of heading 

2 2 stx Start of text 

3 3 etx End of text 

4 y eot End of transmission 
5 5 enq Enquiry 

6 6 ack Acknowledge 

7 T bel Bell 

10 8 bs Backspace 

11 9 t Horizontal tab 

12 10 lf,nl Line feed, Multics newline 
13 11 vt Vertical tab 

14 12 ff Form feed 

15 13 er Carriage return 

16 14 so Shift out 

17 15 si Shift in 
20 16 dle Data link escape 
21 17 del Device control 1 
22 18 dc2 Device control 2 
23 19 dce3 Device control 3 
24 20 dc Device control 4 
25 21 nak Negative acknowledge 
26 22 syn Synchronous idle 

27 23 etb End of transmission block 
30 2y can Cancel 

31 25 em End of medium 
32 26 sub Substitute 
33 a esc Escape 

34 28 fs File separator 

35 29 gs Group separator 

36 30 rs Record separator 

37 31 us Unit separator 
40 32 sp Space 

! 44 33 ! Exclamation point 


A-1 AM82-01 


Graphic 


+ MeN = FOB HH 


bd 


WOON AMN SWhp-oOnNs 


VOS@ STARA NMA OW Sy v ll Awe cc 


Octal 
Value 


42 
43 
yy 


Decimal 
Value 


ASC 
Function 
Abbrev 


qt,quo 


ae) 
@) 


+ M0) RO Bl Se 


TM Iv idl Awe ee OCN NU FWhH -ON- 


ccc 
Qo00200 
oo ® 


ucd 
uce 
ucf 
ucg 


uci 
uc j 


ucl 
ucm 
ucn 


Comments 


Quotation mark 
Number sign 
Dollar sign 
Percent sign 
Ampersand 


Acute accent, apostrophe 


Left parenthesis 
Right parenthesis 
Asterisk 

Plus 

Comma 

Minus 

Period 

Slash 

Zero 

One 

Two _ 

Three 

Four 

Five 

Six 

Seven 

Eight 

Nine 

Colon 

Semicolon 

Less than 

Equals 

Greater than 
Question mark 
Commercial at 
Uppercase 
Uppercase 
Uppercase 
Uppercase 
Uppercase 
Uppercase 
Uppercase 
Uppercase 
Uppercase 
Uppercase 
Uppercase 
Uppercase 
Uppercase . 
Uppercase 
Uppercase 
Uppercase 


POS SZMAGHAIOVHBHVOOYS 
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Graphic 


DU KIN MSE ACH NwWoO 


Lwer ree NK SE SK CetanA TOU OD RAY KUeE IM hOAAoCOM Ff 


Octal 
Value 


121 
122 
123 
124 
125 
126 
127 
130 
1341 
132 
133 
134 
135 
136 
137 
140 
141 
142 
143 
144 
145 
146 
147 
150 
151 
152 
Io3 
154 
155 
156 
157 
160 
161 
162 
163 
164 
165 
166 
167 
170 
171 
172 
3 
i74 
175 
176 
177 


Decimal 
Value 


ASC 
Function 
Abbrev 


ucq 
ucr 
ucs 
uct 


und, bkr 


a,lea 
b,leb 
C, lec 
d,led 
e,lce 
f, Ler 
g,lceg 
h,lch 
i,lei 
j,lej 
k,lek 
l,icl 
mn, lem 
n,ien 
o,lco 
p,lep 
q,lceq 
rm, ler 
s,ics 
t,let 
u,lecu 
v,ilev 
w,lcw 
x,ilex 
y,ley 
Zt C2 
{,lbr 
ape: 
},rbr 
dal, 
del 
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Comments 


Uppercase 
Uppercase 
Uppercase 
Uppercase 
Uppercase 
Uppercase 
Uppercase 
Uppercase 
Uppercase 
Uppercase 


Left bracket 
Reverse slash 
Right bracket 


NK xs ESCH MNDWO 


Circumflex, up arrow 
Underscore, 


Grave accent 


Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercase 
Lowercese 


Left brace 
Vertical line 


NS x Zs CctataAavOosao SB PwWUke re HdDaAWO OW 


Right brace 


Tilde 
Delete 


back arrow 
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APPENDIX B 


COMPATIBILITY WITH NON-BASIC PROGRAMS 


A BASIC program can call programs written in FORTRAN or PL/I 
and can be called by programs written in these languages. The 
only allowable argument types for a call involving a non-BASIC 
program are numeric scalars, numeric arrays, and string scalars. 
String arrays, functions, and files cannot be passed as arguments 
or received as parameters by BASIC programs when a program written 
in another language is involved. 


CALLS BETWEEN BASIC AND PL/I 


SO SA | 


The following table gives the correspondence between the data 
types of BASIC and the equivalent data types of PL/I. 


BASIC PL/I 

numeric scalar float bin(27) 

numeric vector M float bin(27) dim(0:M) 
numeric matrix M x N float bin(27) dim(0:M,0:N) 
string scalar char(*) 


All arguments are passed by reference, except when a PL/I 
character string is passed to a BASIC program; then the value of 
the PL/I string expression is copied by BASIC at entry and is 
written back at exit. When a BASIC character string is passed to 
a PL/I program, the current length is used. Thus, if the PL/I 
program is to return a value, the BASIC program must first initialize 
the string to a value with an appropriate length. When a PL/I 
array, which must be connected, is passed to a BASIC program, the 
lower bound of each dimension is adjusted to equal 0; thus an 
array dimensioned P:Q in tne PL/I program is seen as 0:Q-P by the 


macTrnr 


BASIC program. 
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CALLS BETWEEN BASIC AND FORTRAN 


CT ET A i 


The following table gives the correspondence between the data 
types of BASIC and the equivalent data types of FORTRAN. 


BASIC FORTRAN 

numeric scalar real 

numeric vector N real, dimension N1 

string scalar character*K where K is length 


of BASIC string 


Passing arrays between BASIC and FORTRAN programs is complicated 
by the fact that BASIC stores arrays in row-major order with a 
lower bound of O for each dimension while FORTRAN stores arrays 
in column-major order with a lower bound of 1 for each dimension. 
For these reasons, two-dimensional arrays cannot be passed between 
BASIC and FORTRAN programs and the bounds and subscripts of 
one-dimensional arrays must be adjusted; when a vector is passed, 
the bounds and subscripts used by the FORTRAN program must be 1 
greater than the bounds and subscripts used by the BASIC program. 
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APPENDIX C 


BASIC FILE ATTACHMENTS 


This appendix lists the I/0 switch attachments that can be 
specified in a BASIC file name. 


SS 


The attach description must be of the form 

vfile f 
where f is an absolute or relative pathname that identifies a 
file. 
FILES ON TAPE 

The attach description must be of the form 

record stream_ -target ntape_r -raw -write 
where r is a string identifying the reel to be read or written. 
The string r should end with the sequence ",7track" or ",9track" 
to indicate the type of tape to be read or written. If neither 
of these endings are present, ",9track" is assumed. ; 

The -write control argument causes the reel to be mounted 
with a write-permit ring. This control argument is required if 
the program contains print-statements or scratch-statements that 


access the file. 


argument is required; it means that each 


€ co 
line in the file esponds to a single physical tape record. 
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TERMINAL INPUT/OUTPUT 
The attach description must be of the form 
tty d 


where d is the string, obtainable from the print_attach table 
(pat) command or user active function, that identifies the terminal 
device assigned to the I/O switch name user_i/o in the user's 
process. 


SYNONYM ATTACHMENTS 
The attach description must be of the form 
syn on 


where n is the name of an I/O switch through which all operations 
on this switch are to be directed. Such a switch must exist at 
the time the switch is opened, although it need not exist when 
the switch is attached. The I/O switch whose name is n can itself 
be attached as a synonym for another I/O switch. The I/0 switch 
that is the final destination of the synonym attachment must be 
attached to a file or device and must specify an I/O module. 


For more information on the Multics Input/Output System, refer 
to the MPM Reference Guide under "Input and Output Facilities." 
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APPENDIX D 


EXTENDED PRECISION 


BASIC is available in extended as well as single precision, 
which is the default. Programs compiled in extended precision 
mode do all numeric processing in double precision. These programs 
Should not call or be called by single precision programs because 
numeric arguments, including numeric files, are not compatible. 


To compile in extended precision mode, type the Multics command 
use_ep basic with no arguments. All BASIC programs compiled after 
that will use double precision arithmetic. This effect lasts 
only for the life of the process or run unit or until use sp basic 
is typed, which returns the compiler to single precision mode. 
Note that these commands affect only the compiler; programs of 
either precision can be run at any time. 


To convert numeric files from single to double precision or 
vice versa, use the convert numeric file command described below. 
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convert numeric file convert numeric file 


CONVERT NUMERIC FILE 


The convert numeric file command converts numeric files used 
by BASIC programs from single to double precision and vice versa 


rT 


using PL/I conversion rules. 


SYNTAX AS A COMMAND 


convert_numeric file OLD PATH NEW PATH -CONTROL ARGS 


ARGUMENTS 


OLD PATH 
is the pathname of the file to be converted. 


NEW PATH 
is the pathname of the converted file. 


CONTROL ARGUMENTS 


-double precision, 

-dp 
converts from single to double precision; this is the 
default. 


-Single precision, 


-~Sp 
converts from double to single precision. 
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INDEX 


A 
absolute value 3-4, 5-23, 
5-24 
active function C=2 
argument list 3-3, 3-7, 5-38 
arguments 
array 5-3 
arithmetic 3-2, D-1 
array 2-3, 2-4, 2-5, 2-6, 3-1, 
3-5; 5-1, 5-2, 5-3, 5-4, 
5-5, 5-8, 5-9, 5-15, 5-17, 
5-33, 5-37, 5-38, 6-1, 
6-2, 6-3, 6-4, 6-5, 6-6, 
6-7, 6-9, 6-10, 6-11, 
6-12, 6-13, 6-14, 6-15, 
6-16, 7-8, 7-12, B-1, B-2 
addition 6-4 
argument 5-3 
bounds 2-4, 2-5, 5-3, 6-1 
constant 6-2, 6-3 
current 2-4, 2-5, 5-3, 5-38, 
-~1, 6-2, 6-3, 6-4, 6-5, 
6-6, 6-7, 6-8, 6-9, 
6-10, 6-11, 6-14, 6-15, 
7-8, 7-9, B=2 
dimension 2-4, 2-5, 5-8, 
- 5-9 
element 2-5, 2-6, 3-1, 5-17 
6-12 


array (cont) 


initialization 6-2, 6-3 
input/output 2-4, 6-1 
multiplication 6-5, 6-6 
name 2-3, 2-4, 2-5, 5-9, 
6-9, 6-10, 6-11, 6-12, 
6-13, 6-14, 6-15, 6-16 
numeric 2-5, 5-5, 6-2, 6-3, 
6-15, 6-16 
parameter 5-37, 5-38 
reference 5-15, 5-33 
statement 6-1 
String 2-5, 6-3, 6-11, 6-14, 
6-15, 6-16 
Subtraction 6-5 
transpose 6-7 
array addition 6-4 
array bound 2-5, 5-3 
array bounds 2-4, 2-5, 5-3, 
5-38, 6-1, 6-2, 6-3, 6-4, 
6-5, 6-6, 6-7, 6-8, 6-9, 
6-10, 6-11, 6-14, 6-15, 
7-8, 7-9, B-2 
array constant 6-2, 6-3 
array Gimension 2-4, 2-5, 5-8, 


5-9 


array element 2-5, 2-6, 3-1, 


5-17, 6-12 
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array input/output 2-4, 6-1 


array multiplication 6-5, 6-6 
array name 2-3, 2-4, 2-5, 5-9, 


6-9, 6-10, 6-11, 6-12, 
6-13, 6-14, 6-15, 6-16 


array parameter 5-37, 5-38 
array reference 5-15, 5-33 
aeewy statement 6-1 

array subtraction 6-5 
“array transpose 6-7 

arrays 


changing dimensions of 2-3, 
5-9, 5-38, 6-7 


ASCII 1-1, 1-3, 1-4, 2-2, 3-4, 
ot. We?) 525,°556, 5-34 
assignment 5-17, 6-4, 7-6 
attach-description 4-3 
B 
BASIC 
compiler 1-1, 1-2, 1-3, 1-4, 
5-34, 7-18 
functions 3-3, 7-18 
program 1-1, 1-5, 2-4, 4-1, 
4-2, 4-3, 4-4, 5-4, 
5-15, 5-19, 7-14, 7-18, 
B-1, B-2, D-1 
BASIC compiler 1-1, 1-2, 1-3, 
1-4, 5-34, 7-18 
BASIC function 3-3, 7-18 
BASIC program 1-1, 1-5, 2-4, 
Het, 4-2, 4-3, 4-4, 5-4, 
5-15, 5-19, 7-14, 7-18, 
B-1, B-2, D=1 


3-1 
5-12 


binary operator 


body loop 5-11, 


change statement 2-4, 5-5 


change-bit statement 5-5, 5-6 
changing dimensions of arrays 
2-3, 5-9, 5-38, 6-7 
character abbreviation 3-4 
characters 
list of 5-5 
newline 1-3, 4-1 
5-25, 6-11, 


closing files 4-3 


colon character 4-2, 4-3 
column 2-3, 5-24, 5-25, 6-1, 
623. 6=7,. 6212, "7Ta14. fe11 
column vector 6-7, 6-12 
2-6, 5-6, 5-7; 5-8, 
5-15, 5-16, 5-17, 5-18, 
5-22, 5-24, 5-25, 5-26, 
5-32, 5-33, 5-34, 5-40, 
6-9, 6-10, 6-11, 6-12, 
6-13, 6-14, 6-15, 6-16, 


comma 


7-1 
consecutive 5-22, 5-26, 7-1 

commands 1-1, 1-3, 1-4, 3-4, 
7-14, C-2, D-1, D-2 

comments 1-3 

concatenation 3-2 

constant 1-3, 2-1, 2-2, 3-1, 
3-6, 5-2, 5-6, 5-8, 5-15, 
5-37, 5-39, 5-40, 6-2, 
6-3, 7-18 


eonstant (cont) 


integer 5-39 

numeric 2-1, 3-6, 5-15, 
5-40 

string 1-3, 2-2, 5-6, 5-15, 
5-37 


eonstant array 6-2, 6-3 


control variable 5-11, 5-12 


eontrol variables 5-11, 5-12 


conversions 3-1, 3-3, 3-5, 
3-7, 5-28, D-2 


eopy 


5-29, 5-31 


eross product 6-6, 7-8, 7-9 


current bounds 2-4, 5-3, 5-38, 
6-1, 6-2, 6-4, 6-5, 6-6, 
6-7, 6-8, 6-9, 6-15, 7-8 

D 

data 2-1, 3-1, 3-5, 4-1, 4-2, 
He, U-6, 5-6, 5-14, 5-15, 
5-16, 5-33, 5-34, 5-35, 
5-37, 6-9, 6-10, 6-14, 
6-15, 6-16, 7-1, 7-2, 7-3, 
7-5, 7-6, T-T, 7-9, 7-10, 
B-1, B-2 

data pool 5-6, 5-33, 5-35, 
5-37, 6-14, 6-15 

data statement 5-6 

data type 3-1, 5-15, 6-9, B-1, 
B-2 


15 


data values 5-15, 5-16, 5-34, 
5-35, 6-9, 6-10, 6-15, 
6-16, 7-1, 7-5 

excess 5-15, 5-16, 6-9, 
6-15, 7-1, 7-5 
incorrect 5-15, 5-16, 6-9, 
| 6-15, 7-1, 7-5 


date values 


saved 5-15, 5-16, 6-9, 6-15, 
T-1, T-5 

decimal point 2-1, 5-23, 5-27, 
7-4 

def statement 5-7, 5-8, 5-11, 
5-39 

determinant 3-4, 6-8 

digit 2-1, 2-2, 2-3, 5-6, 
5-23, 5-24, 5-27, 5-28, 


5-29, 5-36, 7-8 
digit position 5-29 


dim statement 2-3, 2-4, 5-9, 


6-1 
E 
editing 1-1, 5-26 
elements 
number of 2-3, 2-4, 5-9, 
6-6, 6-9 
print 5-22, 5-24, 5-25, 
5-26 
empty files 4-4, 4-7 
entry names 1-4 
error condition 6-9 
excess data values 6-9 


exponent 2-1, 5-27, 5-28, 


9-29 
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exponentiation 3-2 file number 4-3, 4-4, 4-6, 
47, 5-10, 5-14, 5-16, 
expression 2-5, 2-6, 3-1, 3-2, 5-18, 5-20, 5-26, 5-32, 
3-3, 3-6, 4-4, 4-6, 5-1, 5-34, 5-35, 5-36, 5-37, 
5-2, 5-4, 5-5, 5-7, 5-10, 5-41, 6-10, 6-11, 6-12, 
5-11, 5-13, 5-14, 5-15, 6-13, 6-14, 6-16, 7-3, 
5-16, 5-17, 5-18, 5-19, 7-11 
5220, 5a21., 5=02. 5-24. 
5-25, 5-26, 5-28, 5-29, file parameter 5-4, 5-37, 
5-30, 5-32, 5-33, 5-34, 5-39 
5-35, 5-36, 5-40, 5-41, 
6-2, 6-3, 6-5, 6-6, 6-10, file pointer 4-6, 5-16, 5-18, 
6-11, 6-13, 6-14, 6-15, 5-26, 5-32, 5-34, 5-35, 
6-16, 7-18, 7-19, B-1 5-36, 5-41, 6-10, 6-12, 
file 4-6, 5-4, 5-10, 5-14, 6-13, 6-14, 6-16, 7-16 
5-16, 5-18, 5-19, 5-26, 
9-32, 5-34, 5-35, 5-36, file statement 4-3, 4-4, 5-10 
5-40, 6-10, 6-11, 6-13, 
6-14, 6-15, 6-16 file types 5-4 
numeric 2-5, 3-3, 4-4, 5-5, 
52113) b= 13; 5<16, S-20.. - “files. 123). 224. -923.. Bet... Hae. 
5-21, 5-22, 5-25, 5-35, 4-3, 4-4, 4-5, 4-6, 4-7, 
5-36, 5-40, 6-2, 6-5, 5-1, 5-2, 5-3, 5-4, 5-10, 
6-6 5-14, 5-16, 5-18, 5-19, 
step 5-11 5-20, 5-26, 5-32, 5-34, 
5-35, 5-36, 5-37, 5-39, 
| 5-40, 5-41, 6-10, 6-11, 
F 6=12,.6=13, 6-14, 16-15, 
6-16, 7-2, 7-3, 7-5, 7-9, 
7-10, 7-11, T-1e, 7-13, 
field 7-14, 7-15, 7-16, 7-17, 
format 5-27, 5-28, 5-31 724683, Bal. Cals, C22. Dat. 
numeric 5-27, 5-28, 5-29, D-2 
5-30, 5-31, 7-8 argument 5-1, 5-3, 5-39 
string 5-27, 5-30, 5-31 closing 4-3 
empty 4-4, 4-7 
file argument 5-1, 5-3, 5-39 expression 4-6, 5-4, 5-10, 
5-14, 5-16, 5-18, 5-19, 
file expression 4-6, 5-H, 5-26, 5-32, 5-34, 5-35, 
5-10, 5-14, 5-16, 5-18, 5-36, 5-40, 6-10, 6-11, 
5-19, 5-26, 5-32, 5-34, 6-13, 6-14, 6-15, 6-16 
5-35, 5-36, 5-40, 6-10, margin 7-14 
6-11, 6-13, 6-14, 6-15, name 4-2, 4-3, 4-4, 7-3, 
6-16 7-11, C-1 
number 4-3, 4-4, 4-6, 4-7, 
file margin 7-14 5-10, 5-14, 5-16, 5-18, 
5-20, 5-26, 5-32, 5-34, 
file name 4-2, 4-3, 4-4, 7-3, 5-35, 5-36, 5-37, 5-41, 
T-11, C1 6-10, 6-11, 6-12, 6-13, 
6-14, 6-16, 7-3, 7-11 
parameter 5-4, 5-37, 5-39 
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files (cont) function parameter 5-3, 5-T, 
pointer 4-6, 5-16, 5-18, 5-8, 5-39 
5-26, 5-32, 5-34, 5-35, 
5-36, 5-41, 6-10, 6-12, function reference 3-3 
6-13, 6-14, 6-16, 7-16 | 
random access 4-2, 4-3, 4-6, functions 


T1 argument 3-3, 5-1, 5-3, 5-7, 
random numeric 4-2, 4-6 5-8, 5-39 
random string 4-2, 4-6 BASIC 3-3, 7-18 
temporary Hy, 7-18 definition 3-6, 3-7, 5-7, 
terminal format 4-1, 4-3, 5-8, 5-11 
4-H, 4-5, 4-6, 5-14, multiple line 3-6, 3-7, 5-7, 
5-18, 6-11, 7-14 5-11, 7-6 
types 5-4 numeric 3-6, 6-8, 6-9 
single line 3-6 
first use 2-3, 2-4, 5-7, 5-8, string 3-3, 3-6 
5-9 user-defined 3-7, 5-3, 5-12, 
5-39 
floating dollar sign 5-27 
floating-point 2-1, 3-2 G 
fnend statement 5-7, 5-8, | 
5-11 global variable 3-7 
for statement 5-11, 5=20 gosub statement 5-12, 5-35 
for-next loops 5-11, 5-12 goto statement 5-12 
format field 5-27, 5-28, 5-31 
EB 
format string 5-26, 5-27, 
5-28, 6-13 
I/O switeh 4-1, 4-2, 4-3, C-1, 
FORTRAN 1-3, 1-4, B-1, B-2 Ga2 
fractional digit 5-28 identity matrix 6-3 
fractional format 5-23, 5-24 incorrect data value 5-15, 
6-9 
function argument 5-1, 5-3, 
5-7, 5-8, 5-39 initialization 6-2, 6-3 
function body 3-7, 5-7, 5-8, input list 5-15, 5-16, 6-9, 
7-3, 7-6 6-10 


function definition 3-6, 3-7, input prompt 7-7 
5-7, 5-8, 5-11 : 
input statement 5-15, 5-16, 
Function name 3-3, 5-2, 5-8, 6-9 
5-39 
input-file statement 5-16 
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input/output 2-4, 4-1, 4-2, 


-6, 6-1 
integer constant 5-39 
integer format 5-23 


integer value 2-5, 3-2, 4-4, 
5-5, 5-19, 6-2 


integers 
list of 5-5 


keyword 


leading 0 5-29 


letters 2-1, 2-2, 2-3, 2-5, 
3-3, 3-6, 7-18 


522 5227. 5-28 


1-2, 1-3, 
13, 5-14, 


line image 

line number 1-1, 
5-1, 5-12, 5- 
5-21, 5-37 

linput statement 5-18, 6-11 


list of integers 5-5 


literal character 5-27, 5-28, 
5-30 
local variable 3-7, 5-3, 5-T, 


5-8, 5-39 
loop bodies 5-11, 5-12 
loops 5-11, 5-12, 7-1, 7-12 


lower bound 2-4, 5-9, B-1, 
B-2 


M 

main program 1-3, 1-4, 1-5, 
3-4, 5-10, 5-37 

mantissa 2-1 

margin 4-4, 4-5, 4-6, 4-7, 
5-4, 5-18, 5-19, 5-20, 
5-22, 5-24, 5-25, 5-28, 
7-14, 7-15 

margin statement 4-6, 5-19, 
5-20 

mat statement 6-1, 6-2 

mat-assign statement 2-4 

mat-input statement 3-5, 5-18, 


6-9, 6-10, 6-12 
mat-linput statement 6-11 


mat-print-using statement 
6-13, 6-14 


mat-read-file statement 6-16 


mat-write-file statement 6-16 


matrices 2-3, 2-4, 3-4, 5-3, 
5-9, 5-38, 6-1 6-2, 6-3, 
6-4, 6-5, 6-6, 6-7, 6-8, 
7-8, 7-9, 7-11, B-1 

matrix 2-3, 2-4, 3-4, 5-3, 
5-9, 5-38, 6-1, 6-2, 6-3, 
6-4, 6-5, 6-6, 6-7, 6-8, 
7-8, 7-9, T-11, B-1 

minus sign 5-6, 5-22, 5-27 

Multics 1-1, 1-3, 1-4, 1-5, 
3-2, 3-4, 3-6, 4-1, 4-2, 
4-3, 4-7, 5-2, 5-33, 5-40, 
T-1, 7-14, A-1, C-2, D-1 

Multics clock 3-6, 5-33 

i-6 AM82-01 


multiple line function 
3-7, 5-7, 5-11, 7-6 


3-6, 


multiplication 3-2, 6-5, 6-6, 
6-7, 7-9 
N 
names 
array 2-3, 2-4, 2-5, 5-9, 
6-9, 6-10, 6-11, 6-12, 
6-13, 6-14, 6-15, 6-16 . 
entry 1-4 
file 4-2, 4-3, 4-4, 7-3, 
7-11, C-1 
function 3-3, 5-2, 5-8, 
5-39 
segment 1-4, 1-5, 5-2 
String function 3-3 
subroutine 1-4 
variable 2-2 
negative 5-22, 5-27, 5-29 
newline character 1-3, 4-1, 


4-5, 5-18, 5-25, 6-11, 
(en 


noninteger 5-23, 5-36 


nonprinting character 4-5 

number of dimensions 2-3, 5-9, 
5-38, 6~7 

numeric argument 3-3, D-1 

numeric array 2-5, 5-5, 6-2, 
6-3, 6-15, 6-16 

numeric constant 3-6, 

5-15, 5-40 


2-1, 


numerie data 
T=1 


4.2, 5-33, 6-14, 


numeric data pool 


5-33, 5-35, 


127 


numeric expression 2-5, 3-3, 
HoH, 5-5, 5-11, 5-13, 
5-18, 5-20, 5-21, 5-22, 
5-25, 5-35, 5-36, 5-40, 
6~2, 6-5, 6-6 


numeric field 5-27, 5-28, 


5-29, 5=30, 5-31, 7-8 
numeric function 3-6, 6-8, 
numeric operand 3-1 
numeric operands 3-1 
numeric operator 3-1, 3-2 
numeric variable 2-2, 5-11, 


5-20 


numeric vector 5-4, 5-5, 6-4, 
625. 6-65 6-75 B41. Bee 


0 
on-gosub statement 5-21 
on-goto statement 5-21 


parameters 


eee 


print elements 5-22, 
5-25, 5-26 
pseudorandom generator 3-5, 
5-33, 5-37, 7-10 
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R 
random access files 4-2, 4-3, 
4-6, 7-15 
random numeric files 4-2, 4-6 
random string files 4-2, 4-6 
references 
list of 5-15, 5-16, 5-17, 
5-18, 5-33 


row vector 6-7, 6-12, 6-13 


S 
saved data value 5-15, 5-16 
scalar numeric variable 2-2, 
5-11, 5-20 
scalar variable 2-2, 3-1, 5-2, 
5-7, 5-8, 5-38 
scientific format 5-23, 5-24 


segment name 1-4, 1-5, 5-2 


single line function 3-6 
statements 
data 5-6 


5-11, 5- 

gosub 5-12 

goto 5-12 

input 5-15, 5-16, 6-9 

linput 5-18, 6-11 

margin 4-6, 5-19, 5-20 

mat 6-1, 6-2 

mat-assign 2-4 

mat-input 3-5, 5-18, 6-9, 
6-10, 6-12 

mat-linput 6-11 

mat-print-using 
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statements (cont) 


mat-read-file 6-16 


mat-write-file 6-16 

On-gosub 5-21 

on-goto 5-21 

write 4-4, 5-41 
step expression 5-11 


string array 2-5, 6-3, 6-11, 
6-14, 6-15, 6-16 


string constant 1-3, 2-2, 5-6, 


5-15, 5-37 
string data pool 5-33, 6-14 
String field 5-27, 5-30, 5-31 
string function 3-3, 3-6 
string function name 3-3 
subroutine name 1-4 
subscripts 

list of 2-5 
T 

temporary files 4-4, 7-18 
terminal format file 4-1, 4-3, 


H-H, 4-5, 4-6, 5-14, 5-18, 
6-11, 7-14 


unary operator 3-1 
unquoted string 5-15. 
upper bound 2-4, 5-8 

5-6, 5-15 


user's terminal 4-1, 4-3, 5-10, 
5-15, 5-16, 5-19, 6-9 


uppercase character 


AM82-01 


user-defined function 3-7, 
5-3, 5-12, 5-39 


variable 1-4 
2-5, 2-6 
5-8, 5-1 
control 5- 
global 3-7 
local 3-7, 5-3, 5-7; 5-8, 
5-39 
name 2-2 
scalar 2-2, 3-1, 5-2, 5-7, 
5-8, 5-38 


variable name 2-2 


vector 2-3, 2-4, 4-2, 5-3, 

5-4, 5-5, 5-6, 5-8, 5-38, 
6-1, 6-2, 6-3, 6-4, 6-5, 
6-6, 6-7, 6-9, 6-12, 6-13, 
7-9, 7-11, 7-15, B-1, B-2 

numeric 5-4, 5-5, 6-4, 6-5, 

6-6, 6-7, B-1, B-2 
row 6-7, 6-12, 6-13 
W 


write statement 4-4, 5-41 


zero 5-5, 5-23, 6-11, 6-14 


zero-length 2-3, 2-5, 3-5, 
6-3 
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